texlive[51740] Master/texmf-dist/scripts/texlive: (check_runfiles):

[commits+karl at tug.org]

Revision: 51740
          http://tug.org/svn/texlive?view=revision&revision=51740
Author:   karl
Date:     2019-07-26 19:39:35 +0200 (Fri, 26 Jul 2019)
Log Message:
-----------
(check_runfiles): ignore latex-.*-dev packages

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/NEWS
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/NEWS
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/NEWS	2019-07-26 14:15:55 UTC (rev 51739)
+++ trunk/Master/texmf-dist/scripts/texlive/NEWS	2019-07-26 17:39:35 UTC (rev 51740)
@@ -1,6 +1,8 @@
 (This file public domain.  Originally written by Norbert Preining and
 Karl Berry, 2010.)
 
+<li>check-runfiles ignore latex-.*-dev packages.
+
 <p><b>tlmgr 51555 (released 5jul19):</b>
 <li>runscript.tlu: use vbscript for GUI error boxes, so tlshell can be
 its own self-contained package, entirely separate from texlive.infra.

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2019-07-26 14:15:55 UTC (rev 51739)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2019-07-26 17:39:35 UTC (rev 51740)
@@ -5458,14 +5458,15 @@
 sub check_runfiles {
   my $Master = $localtlpdb->root;
 
-  # build a list of all runtime files associated to 'normal' packages
-  (my $non_normal = `ls "$Master/bin"`) =~ s/\n/\$|/g; # binaries
-  $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-|^texworks';
-  $non_normal .= '|^pgf$';  # has lots of intentionally duplicated .lua
+  # build a list of all runtime files associated with normal packages.
+  (my $omit_pkgs = `ls "$Master/bin"`) =~ s/\n/\$|/g; # binaries
+  $omit_pkgs .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-|^texworks';
+  $omit_pkgs .= '|^pgf$';           # intentionally duplicated .lua
+  $omit_pkgs .= '|^latex-.*-dev$';  # intentionally duplicated base latex
   my @runtime_files = ();
   #
   foreach my $tlpn ($localtlpdb->list_packages) {
-    next if ($tlpn =~ /$non_normal/);
+    next if $tlpn =~ /$omit_pkgs/;
     #
     my $tlp = $localtlpdb->get_package($tlpn);
     my @files = $tlp->runfiles;