diff options
author | Karl Berry <karl@freefriends.org> | 2008-08-12 23:13:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-08-12 23:13:51 +0000 |
commit | c7538d428814b27157b98beb993ae8ae0e53dd11 (patch) | |
tree | 78e4e9edd63382970d012c8fc3584a3f58d0fcd1 /Master/tlpkg/bin/tl-update-install-pkg | |
parent | 16fd112807bd904abab66a873dabc2bae7e11969 (diff) |
(install_files): leave unpacked copy of
install-tl. Request from Philip Taylor, 12 Aug
2008 21:18:04.
git-svn-id: svn://tug.org/texlive/trunk@10295 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 | 36 |
1 files changed, 19 insertions, 17 deletions
diff --git a/Master/tlpkg/bin/tl-update-install-pkg b/Master/tlpkg/bin/tl-update-install-pkg index a6abe2c39ef..88a1d047ea1 100755 --- a/Master/tlpkg/bin/tl-update-install-pkg +++ b/Master/tlpkg/bin/tl-update-install-pkg @@ -129,22 +129,22 @@ push @unix, $tlp->docfiles; if ($opt_texlivedocs) { foreach my $p (qw/texlive-en texlive-de texlive-fr texlive-cz texlive-pl texlive-ru texlive-zh-cn/) { my $tlpdocs = $tlpdb->get_package($p); - if (!defined($tlpdocs)) { - warn("Cannot find package $p in tlpdb!"); + if (!defined $tlpdocs) { + warn ("Cannot find package $p in tlpdb!"); next; } - push @unix, $tlpdocs->docfiles; + push (@unix, $tlpdocs->docfiles); } } my %tlpbin = %{$tlp->binfiles}; foreach my $a (keys %tlpbin) { next if ($a =~ m/win32/); - push @unix, @{$tlpbin{$a}}; + push (@unix, @{$tlpbin{$a}}); } -my @win32; -push @win32, @unix; -if (defined($tlpbin{"win32"})) { - push @win32, @{$tlpbin{"win32"}}; +my @win32 = (); +push (@win32, @unix); +if (defined $tlpbin{"win32"}) { + push (@win32, @{$tlpbin{"win32"}}); } ### copy files from the repository to tmpdir @@ -157,8 +157,8 @@ sub copy_files { $_ = "./$_"; } ($dir, $file) = /^(.*)\/(.*)/; - mkdirhier "$inst_tmp/$dir"; - copy "$_", "$inst_tmp/$dir"; + mkdirhier ("$inst_tmp/$dir"); + copy ($_, "$inst_tmp/$dir"); } } @@ -178,16 +178,18 @@ sub make_zip chdir ($installerdir) || die "chdir($installerdir) failed: $!"; } -### copy generated files to outputdir - -sub install_zip +# copy generated files to outputdir, +# +sub install_files { - $outputdir = abs_path($outputdir); + $outputdir = abs_path ($outputdir); info ("$0: Installing to $outputdir\n"); - copy "$tmpdir/install-tl-unx.tar.gz", $outputdir; + copy ("$tmpdir/install-tl-unx.tar.gz", $outputdir); system ('ls', '-l', "$outputdir/install-tl-unx.tar.gz"); - copy "$tmpdir/install-tl.zip", $outputdir; + copy ("$tmpdir/install-tl.zip", $outputdir); system ('ls', '-l', "$outputdir/install-tl.zip"); + # leave uncompressed copy as files for sake of people mirroring. + system ("cd $outputdir && unzip -q install-tl.zip"); } ### main @@ -197,7 +199,7 @@ make_zip ('tgz'); copy_files (@win32); make_zip ('zip'); -install_zip (); +install_files (); cleanup (); |