summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-install-pkg
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tl-update-install-pkg')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-install-pkg26
1 files changed, 15 insertions, 11 deletions
diff --git a/Master/tlpkg/bin/tl-update-install-pkg b/Master/tlpkg/bin/tl-update-install-pkg
index 88a1d047ea1..9c0eb3810a4 100755
--- a/Master/tlpkg/bin/tl-update-install-pkg
+++ b/Master/tlpkg/bin/tl-update-install-pkg
@@ -110,22 +110,23 @@ die "$0: Output directory not writable: $outputdir.\n" unless -w $outputdir;
# read TLPDB and extract files
-my $tlpdb = TeXLive::TLPDB->new ("root" => "$installerdir");
-die("Cannot find tlpdb in $installerdir!\n") unless defined($tlpdb);
+my $tlpdb = TeXLive::TLPDB->new ("root" => $installerdir);
+die "Cannot find tlpdb in $installerdir!\n" unless defined $tlpdb;
my $tlp = $tlpdb->get_package("00texlive.installer");
-die("Cannot find package 00texlive.installer in ${installerdir}'s texlive.tlpdb\n") unless defined($tlp);
+die "No 00texlive.installer in ${installerdir}'s texlive.tlpdb"
+ unless defined $tlp;
my $tlpinfra = $tlpdb->get_package("texlive.infra");
die("Cannot find package texlive.infra in ${installerdir}'s texlive.tlpdb\n") unless defined($tlp);
-my @unix;
+my @unix = ();
push @unix, $tlp->runfiles;
push @unix, $tlpinfra->runfiles;
push @unix, $tlp->docfiles;
-#
-# add the texlive-XX docs in pdf and html format if the option is given
+# add the texlive-XX docs in pdf and html format if the option is given.
+#
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);
@@ -147,8 +148,9 @@ if (defined $tlpbin{"win32"}) {
push (@win32, @{$tlpbin{"win32"}});
}
-### copy files from the repository to tmpdir
+# copy files from the repository to tmpdir.
+#
sub copy_files {
my ($dir, $file);
for (@_) {
@@ -162,8 +164,8 @@ sub copy_files {
}
}
-### create the .tar.gz and the .zip file
-
+# create the .tar.gz and the .zip files.
+#
sub make_zip
{
my ($type) = @_;
@@ -189,10 +191,12 @@ sub install_files
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");
+ system ("cd $outputdir && unzip -q -o install-tl.zip");
}
-### main
+
+# main.
+#
copy_files (@unix);
make_zip ('tgz');