summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-install-pkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-08-12 23:13:51 +0000
committerKarl Berry <karl@freefriends.org>2008-08-12 23:13:51 +0000
commitc7538d428814b27157b98beb993ae8ae0e53dd11 (patch)
tree78e4e9edd63382970d012c8fc3584a3f58d0fcd1 /Master/tlpkg/bin/tl-update-install-pkg
parent16fd112807bd904abab66a873dabc2bae7e11969 (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-xMaster/tlpkg/bin/tl-update-install-pkg36
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 ();