texlive[49139] Master/tlpkg: make tlpkg/tltcl windows-only in the

[commits+karl at tug.org]

Revision: 49139
          http://tug.org/svn/texlive?view=revision&revision=49139
Author:   karl
Date:     2018-11-13 00:24:26 +0100 (Tue, 13 Nov 2018)
Log Message:
-----------
make tlpkg/tltcl windows-only in the patterns instead of excluding in the script

Modified Paths:
--------------
    trunk/Master/tlpkg/bin/tl-update-install-pkg
    trunk/Master/tlpkg/tlpsrc/00texlive.installer.tlpsrc

Modified: trunk/Master/tlpkg/bin/tl-update-install-pkg
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-install-pkg	2018-11-12 22:10:37 UTC (rev 49138)
+++ trunk/Master/tlpkg/bin/tl-update-install-pkg	2018-11-12 23:24:26 UTC (rev 49139)
@@ -100,12 +100,10 @@
 }
 
 # create directories.
-
 die "$tmpdir already exists" if -d $tmpdir;
+mkdir "$tmpdir" or die "Can't mkdir($tmpdir)";
+mkdir "$inst_tmp" or die "Can't mkdir($inst_tmp)";
 
-mkdir "$tmpdir" or die "Can't mkdir \"$tmpdir\".\n";
-mkdir "$inst_tmp" or die "Can't mkdir \"$inst_tmp\".\n";
-
 if ($opt_verbose) {
   info("thisdir:      \"$thisdir\"\n");
   info("installerdir: \"$installerdir\"\n");
@@ -124,9 +122,9 @@
 my $tlpdb = TeXLive::TLPDB->new ("root" => $installerdir);
 die "$0: Cannot find tlpdb in $installerdir.\n" unless defined $tlpdb;
 
-my $tlp = $tlpdb->get_package("00texlive.installer");
+my $tlpinst = $tlpdb->get_package("00texlive.installer");
 die "$0: no 00texlive.installer in ${installerdir}'s texlive.tlpdb" 
-  unless defined $tlp;
+  unless defined $tlpinst;
 
 my $tlpinfra = $tlpdb->get_package("texlive.infra");
 die "$0: no texlive.infra in ${installerdir}'s texlive.tlpdb"
@@ -137,9 +135,9 @@
   unless defined $tlptrans;
 
 my @unix = ();
-push @unix, $tlp->runfiles;
-push @unix, grep (!/^texmf\//, $tlpinfra->runfiles);
-push @unix, $tlp->docfiles;       # doc
+push @unix, $tlpinst->runfiles;
+push @unix, grep (! /^texmf\//, $tlpinfra->runfiles);
+push @unix, $tlpinst->docfiles;   # doc
 push @unix, $tlptrans->runfiles;  # translations
 
 # add the texlive-LL docs in pdf and html format if the option is given.
@@ -156,7 +154,7 @@
   }
 }
 
-my %tlpbin = %{$tlp->binfiles};
+my %tlpbin = %{$tlpinst->binfiles};
 for my $a (keys %tlpbin) {
   next if ($a =~ m/win32/);
   push (@unix, @{$tlpbin{$a}});
@@ -180,8 +178,8 @@
 install_files ();
 
 cleanup ();
+exit (0);
 
-
 

 # copy files from the repository to $inst_tmp.
 #
@@ -221,7 +219,7 @@
     &xsystem ("makensis -V4 install-tl >$tmpdir/install-tl-nsis.log");
 
   } elsif ($type eq 'tgz') {
-    &xsystem ('tar', '-czf', 'install-tl-unx.tar.gz', '--exclude=tltcl',
+    &xsystem ('tar', '-czf', 'install-tl-unx.tar.gz',
     $install_tl_name); 
 
   } else {

Modified: trunk/Master/tlpkg/tlpsrc/00texlive.installer.tlpsrc
===================================================================
--- trunk/Master/tlpkg/tlpsrc/00texlive.installer.tlpsrc	2018-11-12 22:10:37 UTC (rev 49138)
+++ trunk/Master/tlpkg/tlpsrc/00texlive.installer.tlpsrc	2018-11-12 23:24:26 UTC (rev 49139)
@@ -14,22 +14,22 @@
 runpattern f install-tl
 runpattern f release-texlive.txt
 runpattern d tlpkg/installer
-runpattern d tlpkg/tltcl
 #
-# but no xz binaries:
+# but omit binary stuff from runpatterns, we give them as binpatterns below:
+runpattern !d tlpkg/installer/lz4
+runpattern !d tlpkg/installer/wget
 runpattern !d tlpkg/installer/xz
-runpattern !d tlpkg/installer/wget
-runpattern !d tlpkg/installer/lz4
-# tar.exe is included in the win32 binpattern below, so exclude from runpattern
 runpattern !f tlpkg/installer/tar.exe
 #
 # Windows only:
 binpattern d/win32 tlpkg/tlperl
+runpattern d/win32 tlpkg/tltcl
 binpattern f/win32 tlpkg/installer/tar.exe
 binpattern f/win32 tlpkg/installer/wget/wget.exe
 binpattern f/win32 tlpkg/installer/xz/xz.exe
 binpattern f/win32 install-tl-windows.bat
 binpattern f/win32 install-tl-advanced.bat
+#
 # xz binaries for all
 binpattern f tlpkg/installer/xz/xz.${ARCH}
 #