summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-install-pkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-07-27 23:52:02 +0000
committerKarl Berry <karl@freefriends.org>2008-07-27 23:52:02 +0000
commit7631900eddd1bf6d452dda200f6793e4e08bddf3 (patch)
treee7bb6754cb0c6e2f5f9bdc0051f7b0fbf812d67e /Master/tlpkg/bin/tl-update-install-pkg
parentfae241fc1f9e3583247cda32e6a565750357fc44 (diff)
add chicken mode to update-tlnet, rationalize msgs, etc.
git-svn-id: svn://tug.org/texlive/trunk@9829 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-install-pkg')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-install-pkg16
1 files changed, 8 insertions, 8 deletions
diff --git a/Master/tlpkg/bin/tl-update-install-pkg b/Master/tlpkg/bin/tl-update-install-pkg
index d9a4f6a6fc9..d1d91f77dbc 100755
--- a/Master/tlpkg/bin/tl-update-install-pkg
+++ b/Master/tlpkg/bin/tl-update-install-pkg
@@ -151,13 +151,13 @@ sub copy_files {
sub make_zip
{
my ($type) = @_;
- info("making $type\n");
+ info ("$0: Making $type...\n");
chdir ($tmpdir) || die "chdir($tmpdir) failed: $!";
if ($type eq 'zip') {
- system('zip', '-rq', 'install-tl.zip', 'install-tl');
+ system ('zip', '-rq', 'install-tl.zip', 'install-tl');
} else {
- system('tar', '-czf', 'install-tl-unx.tar.gz', 'install-tl');
+ system ('tar', '-czf', 'install-tl-unx.tar.gz', 'install-tl');
}
chdir ($installerdir) || die "chdir($installerdir) failed: $!";
}
@@ -167,7 +167,7 @@ sub make_zip
sub install_zip
{
$outputdir = abs_path($outputdir);
- info("installing to $outputdir\n");
+ info ("$0: 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.zip", $outputdir;
@@ -176,14 +176,14 @@ sub install_zip
### main
copy_files (@unix);
-make_zip 'tgz';
+make_zip ('tgz');
copy_files (@win32);
-make_zip 'zip';
+make_zip ('zip');
-install_zip;
+install_zip ();
-cleanup;
+cleanup ();
### Local Variables:
### perl-indent-level: 2