diff options
author | Karl Berry <karl@freefriends.org> | 2008-07-27 23:52:02 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-07-27 23:52:02 +0000 |
commit | 7631900eddd1bf6d452dda200f6793e4e08bddf3 (patch) | |
tree | e7bb6754cb0c6e2f5f9bdc0051f7b0fbf812d67e /Master/tlpkg/bin/tl-update-install-pkg | |
parent | fae241fc1f9e3583247cda32e6a565750357fc44 (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-x | Master/tlpkg/bin/tl-update-install-pkg | 16 |
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 |