summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/tlpkg/bin/tl-make-install-pkg27
1 files changed, 16 insertions, 11 deletions
diff --git a/Master/tlpkg/bin/tl-make-install-pkg b/Master/tlpkg/bin/tl-make-install-pkg
index 4a2693dbb69..18396e5615d 100755
--- a/Master/tlpkg/bin/tl-make-install-pkg
+++ b/Master/tlpkg/bin/tl-make-install-pkg
@@ -83,7 +83,7 @@ sub cleanup {
}
foreach my $signal (@signals) {
- $SIG{"$signal"}=\&cleanup;
+ $SIG{"$signal"}=\&cleanup;
}
### create directories.
@@ -143,28 +143,33 @@ sub copy_files {
### create the .tar.gz and the .zip file
-sub make_zip {
- my $type=shift;
- chdir "$tmpdir" or die "Can't chdir \"$tmpdir\".\n";
+sub make_zip
+{
+ my ($type) = @_;
+ tllog ($::LOG_NORMAL, "making $type\n");
+
+ chdir ($tmpdir) || die "chdir($tmpdir) failed: $!";
if ($type eq 'zip') {
system('zip', '-rq', 'install-tl-w32.zip', 'install-tl');
} else {
system('tar', '-czf', 'install-tl-unx.tar.gz', 'install-tl');
}
- chdir "$installerdir";
+ chdir ($installerdir) || die "chdir($installerdir) failed: $!";
}
### copy generated files to outputdir
-sub install_zip {
- copy "$tmpdir/install-tl.tar.gz", "$outputdir";
- system ('ls', '-l', "$outputdir/install-tl-w32.tar.gz") unless ($opt_qiet);
- copy "$tmpdir/install-tl.zip", "$outputdir";
- system ('ls', '-l', "$outputdir/install-tl-unx.zip") unless ($opt_qiet);
+sub install_zip
+{
+ tllog ($::LOG_NORMAL, "installing to $outputdir\n");
+ copy "$tmpdir/install-tl-unx.tar.gz", $outputdir;
+ system ('ls', '-l', "$outputdir/install-tl-unx.tar.gz");
+
+ copy "$tmpdir/install-tl-w32.zip", $outputdir;
+ system ('ls', '-l', "$outputdir/install-tl-w32.zip");
}
### main
-
copy_files (@unix);
make_zip 'tgz';