texlive[49146] Master/tlpkg/bin/tl-update-install-pkg:

[commits+karl at tug.org]

Revision: 49146
          http://tug.org/svn/texlive?view=revision&revision=49146
Author:   karl
Date:     2018-11-13 19:45:33 +0100 (Tue, 13 Nov 2018)
Log Message:
-----------
(install_files): remove new tltcl subdir of tlpkg.

Modified Paths:
--------------
    trunk/Master/tlpkg/bin/tl-update-install-pkg

Modified: trunk/Master/tlpkg/bin/tl-update-install-pkg
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-install-pkg	2018-11-13 18:39:20 UTC (rev 49145)
+++ trunk/Master/tlpkg/bin/tl-update-install-pkg	2018-11-13 18:45:33 UTC (rev 49146)
@@ -208,7 +208,7 @@
   chomp (my $prevdir = `pwd`);
   &xchdir ($tmpdir);
   if ($type eq 'zip') {
-    &xsystem ('zip', '-rq', 'install-tl.zip', $install_tl_name); 
+    &xsystem ('zip', '-rq', 'install-tl.zip', $install_tl_name);
 
   } elsif ($type eq 'nsis') {
     # write include file for dated install directory.
@@ -266,7 +266,8 @@
   
   # These tlpkg/ subdirs exist when installing via tl-update-tlnet (?),
   # though not when testing this script standalone.
-  xsystem ("cd tlpkg && rm -rf TeXLive installer tlperl translations gpg");
+  my $tlpkg_subdirs = "TeXLive installer tlperl tltcl translations gpg";
+  xsystem ("cd tlpkg && rm -rf $tlpkg_subdirs");
   xsystem ("mv $junkdir/$install_tl_name/tlpkg/* tlpkg/");
   xsystem ("rm -rf $junkdir");
 }