texlive[71004] Master: explicitly ignore l3(kernel|backend)-dev for

[commits+karl at tug.org]

Revision: 71004
          https://tug.org/svn/texlive?view=revision&revision=71004
Author:   karl
Date:     2024-04-19 23:17:05 +0200 (Fri, 19 Apr 2024)
Log Message:
-----------
explicitly ignore l3(kernel|backend)-dev for runtime dups; more info if fmttriggers differ

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2024-04-19 21:07:55 UTC (rev 71003)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2024-04-19 21:17:05 UTC (rev 71004)
@@ -5738,6 +5738,7 @@
   $omit_pkgs .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-|^texworks';
   $omit_pkgs .= '|^pgf$';           # intentionally duplicated .lua
   $omit_pkgs .= '|^latex-.*-dev$';  # intentionally duplicated base latex
+  $omit_pkgs .= '|^l3(kernel|backend)-dev$';  # more base latex
   my @runtime_files = ();
   #
   foreach my $tlpn ($localtlpdb->list_packages) {

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2024-04-19 21:07:55 UTC (rev 71003)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2024-04-19 21:17:05 UTC (rev 71004)
@@ -4866,6 +4866,11 @@
   return @ret;
 }
 
+=item C<< report_tlpdb_differences($rret) >>
+
+Report, using info function, as given in hash reference argument RET,
+with keys removed_packages, added_packages, different_packages.
+
 sub report_tlpdb_differences {
   my $rret = shift;
   my %ret = %$rret;
@@ -4884,21 +4889,28 @@
   }
   if (defined($ret{'different_packages'})) {
     info ("different packages from A to B:\n");
+    my $printed_fmttriggers_msg = 0;
     for my $p (sort keys %{$ret{'different_packages'}}) {
-      info ("  $p\n");
+      info ("  $p:\n");
       for my $k (sort keys %{$ret{'different_packages'}->{$p}}) {
         if ($k eq "revision") {
-          info("    revision differ: $ret{'different_packages'}->{$p}->{$k}\n");
+         info("    revision differ: $ret{'different_packages'}->{$p}->{$k}\n");
         } elsif ($k eq "removed" || $k eq "added") {
-          info("    $k files:\n");
+          info ("    $k files:\n");
           for my $f (sort @{$ret{'different_packages'}->{$p}->{$k}}) {
-            info("      $f\n");
+            info ("      $f\n");
           }
-        } else {
-          # e.g., fmttriggers; don't bother making a complete report.
+        } elsif ($k eq "fmttriggers") {
+          # fmttriggers; don't bother making a complete report.
           # The fmttriggers will differ when the global variables in
-          # 00texlive.autopatterns.tlpsrc change but we forget to
+          # 00texlive.autopatterns.tlpsrc change but we forgot to
           # tlforceincr all the packages that depend on the variables.
+          # Which happens depressingly often.
+          info("    $k differ)\n");
+          info("(if 00texlive.autopatterns change, tlforceincr dependents.)\n")
+            if ! $printed_fmttriggers_msg; # just show once
+          $printed_fmttriggers_msg = 1;
+        } else {
           info("    $k differ\n");
         }
       }