texlive[68607] trunk: pkgs_ report; sync

[commits+karl at tug.org]

Revision: 68607
          https://tug.org/svn/texlive?view=revision&revision=68607
Author:   karl
Date:     2023-10-21 17:32:27 +0200 (Sat, 21 Oct 2023)
Log Message:
-----------
pkgs_ report; sync

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/windows_wrapper/runscript.tlu
    trunk/Master/tlpkg/bin/tl-update-containers

Modified: trunk/Build/source/texk/texlive/windows_wrapper/runscript.tlu
===================================================================
--- trunk/Build/source/texk/texlive/windows_wrapper/runscript.tlu	2023-10-21 12:11:04 UTC (rev 68606)
+++ trunk/Build/source/texk/texlive/windows_wrapper/runscript.tlu	2023-10-21 15:32:27 UTC (rev 68607)
@@ -555,7 +555,7 @@
 -- program name
 
 -- lower arg[0] : get file name part : remove extension 
-local progname, substcount = string.lower(arg[0]):gsub('^.*[\\/]', ''):gsub('%.[^.]*$', '')
+local progname, substcount = string.lower(arg[0]):gsub('^.*[\\/]', ''):gsub('%.exe$', '')
 -- special behaviour when called under 'runscript' name
 if (progname == 'runscript') then
   -- we are called as: runscript progname ...

Modified: trunk/Master/tlpkg/bin/tl-update-containers
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-containers	2023-10-21 12:11:04 UTC (rev 68606)
+++ trunk/Master/tlpkg/bin/tl-update-containers	2023-10-21 15:32:27 UTC (rev 68607)
@@ -422,7 +422,7 @@
     if (@todopacks) {
       # something changed.
       for my $listname (qw(new removed updated)) {
-        my @list = eval ('@new_' . $listname);
+        my @list = eval ('@pkgs_' . $listname);
         info("$prg: ", 0 + @list, " $listname");
         info(@list ? ": @list" : ".");
         info("\n");