texlive[57837] Master/tlpkg/bin/tl-check-fmttriggers:

commits+karl at tug.org commits+karl at tug.org
Mon Feb 22 00:18:27 CET 2021


Revision: 57837
          http://tug.org/svn/texlive?view=revision&revision=57837
Author:   karl
Date:     2021-02-22 00:18:27 +0100 (Mon, 22 Feb 2021)
Log Message:
-----------
(compare_pkgs_and_triggers): exclude atbegshi
etc. from tlpdb-only report, but keep them for
recorded check.

Modified Paths:
--------------
    trunk/Master/tlpkg/bin/tl-check-fmttriggers

Modified: trunk/Master/tlpkg/bin/tl-check-fmttriggers
===================================================================
--- trunk/Master/tlpkg/bin/tl-check-fmttriggers	2021-02-21 23:09:12 UTC (rev 57836)
+++ trunk/Master/tlpkg/bin/tl-check-fmttriggers	2021-02-21 23:18:27 UTC (rev 57837)
@@ -300,7 +300,8 @@
   
   # we don't include these as fmttriggers since when they meaningfully
   # change, fmtutil should get called anyway due to language.* changing.
-  my @skip_pkgs = qw(dehyph-exptl ruhyphen ukrhyph);
+  my @skip_recorded = qw(dehyph-exptl ruhyphen ukrhyph);
+  
   # Anything matching hyphen-.* is also ignored, but not hyph-utf8.
 
   for my $ef (sort keys %$pkgs_per_format) {
@@ -324,15 +325,6 @@
       # 00texlive.autopatterns.tlpsrc.
       delete $tlpdb_pkgs{"l3backend"};
       
-      # These packages are also included as fmttriggers eventhough they
-      # are not necessary, to simplify maintenance of the package lists.
-      delete $tlpdb_pkgs{"atbegshi"};
-      delete $tlpdb_pkgs{"atveryend"};
-      delete $tlpdb_pkgs{"everyshi"};
-      delete $tlpdb_pkgs{"latex"};
-      delete $tlpdb_pkgs{"tex-ini-files"};
-      delete $tlpdb_pkgs{"unicode-data"};
-      
       my @recorded_only = ();
       for my $r (keys %recorded_pkgs) {
         # no need for a package to include itself as a fmttrigger.
@@ -345,14 +337,23 @@
           # triggers in the tlpdb, for no particular reason. Let that be
           # ok, and only check for the skipped packages when making the
           # trigger list for an engine.format not in tlpdb.
-          next if grep ($_ eq $r, @skip_pkgs);
+          next if grep ($_ eq $r, @skip_recorded);
           next if $r =~ /hyphen-.*/;
           push (@recorded_only, $r);
         }
       }
       if (keys %tlpdb_pkgs) {
+        # These packages are also included as fmttriggers even though
+        # they are not always necessary, to simplify maintenance of the
+        # package lists. So don't worry about them if they are present.
+        my @skip_tlpdb = qw(atbegshi atveryend everyshi latex
+                            tex-ini-files unicode-data);
+        my %skip_tlpdb; @skip_tlpdb{@skip_tlpdb} = 1; # make into hash
+        
         tlwarn ("$prg: $ef triggers only in tlpdb: "
-                . join (",", sort keys %tlpdb_pkgs) . "\n");
+                . join (",", sort
+                            grep { ! exists $skip_tlpdb{$_} } keys %tlpdb_pkgs)
+                . "\n");
         $bad_p = 1;
       }
       if (@recorded_only) {



More information about the tex-live-commits mailing list.