texlive[59233] Master/tlpkg/bin/tl-check-fmttriggers: don't complain

commits+karl at tug.org commits+karl at tug.org
Mon May 17 00:10:09 CEST 2021


Revision: 59233
          http://tug.org/svn/texlive?view=revision&revision=59233
Author:   karl
Date:     2021-05-17 00:10:09 +0200 (Mon, 17 May 2021)
Log Message:
-----------
don't complain about various ltx dependencies even
when they are unneeded.

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-05-16 21:08:31 UTC (rev 59232)
+++ trunk/Master/tlpkg/bin/tl-check-fmttriggers	2021-05-16 22:10:09 UTC (rev 59233)
@@ -87,8 +87,11 @@
   my %pkgs_per_format = &pkgs_per_format ($tlpdb, %files_per_format);
   
   # check that those packages are exactly what's listed as needed.
-  return &compare_pkgs_and_triggers (\%pkgs_per_format,
-                                     $fmttriggers, $fmtpkgcontainers);
+  my $ret = &compare_pkgs_and_triggers (\%pkgs_per_format,
+                                        $fmttriggers,
+                                        $fmtpkgcontainers);
+  info ("Exit status: $ret\n");
+  return $ret;
 }
 
 

@@ -290,8 +293,9 @@
 # Compare lists of packages required by building (PKGS_PER_FORMAT) with
 # lists of existing trigger directives (FMTTRIGGERS). Return 0 if
 # identical, 1 otherwise (and report differences). Ignore some
-# hyphenation dependencies and l3backend, and the package itself
-# containing the trigger directive (FMTPKGCONTAINERS).
+# hyphenation dependencies, the package itself containing the trigger
+# directive (FMTPKGCONTAINERS), and various other dependencies we
+# specify to ease maintenance.
 # 
 sub compare_pkgs_and_triggers {
   my ($pkgs_per_format,$fmttriggers,$fmtpkgcontainers) = @_;
@@ -301,7 +305,7 @@
   # we don't include these as fmttriggers since when they meaningfully
   # change, fmtutil should get called anyway due to language.* changing.
   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) {
@@ -316,15 +320,6 @@
       my %tlpdb_pkgs;
       @tlpdb_pkgs{@tlpdb_pkgs} = ();       # hash slice for tlpdb pkgs
 
-      # This does not show up in the recorder output, unfortunately.
-      # It's used in the lualatex formats.
-      delete $tlpdb_pkgs{"luaotfload"};
-      
-      # We intentionally include this as a fmttrigger in tlpdb even
-      # though it is not read at fmt creation time. See
-      # 00texlive.autopatterns.tlpsrc.
-      delete $tlpdb_pkgs{"l3backend"};
-      
       my @recorded_only = ();
       for my $r (keys %recorded_pkgs) {
         # no need for a package to include itself as a fmttrigger.
@@ -343,18 +338,29 @@
         }
       }
       if (keys %tlpdb_pkgs) {
-        # These packages are also included as fmttriggers even though
-        # they are not always necessary, to simplify maintenance of the
+        # These packages are included as fmttriggers even though they
+        # are not always used, usually 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
+        # See 00texlive.autopatterns.tlpsrc for more.
+        # 
+        # luaotfload doesn't show up in the recorder output,
+        # unfortunately. It's used in the lualatex patterns.
+        # 
+        my @skip_tlpdb = qw(atbegshi atveryend everyshi
+                            firstaid l3backend l3kernel l3packages latex
+                            luaotfload
                             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
-                            grep { ! exists $skip_tlpdb{$_} } keys %tlpdb_pkgs)
-                . "\n");
-        $bad_p = 1;
+        for my $t (keys %tlpdb_pkgs) {
+          delete $tlpdb_pkgs{$t} if exists $skip_tlpdb{$t};
+        }
+        if (keys %tlpdb_pkgs) {
+          tlwarn ("$prg: $ef triggers only in tlpdb: "
+                  . join (",", sort keys %tlpdb_pkgs)
+                  . "\n");
+          $bad_p = 1;
+        }
       }
       if (@recorded_only) {
         tlwarn ("$prg: $ef triggers only in recorder: "



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