check-execute-consistency: search for files in hyph-utf8, and if not found

search the whole tlpdb and report them as possibly problematic


git-svn-id: svn://tug.org/texlive/trunk@8976 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 15 insertions, 1 deletions

diff --git a/Master/tlpkg/bin/check-execute-consistency b/Master/tlpkg/bin/check-execute-consistency
index 7a4f6481791..ac275db6110 100755
--- a/Master/tlpkg/bin/check-execute-consistency
+++ b/Master/tlpkg/bin/check-execute-consistency
@@ -87,10 +87,18 @@ sub main
     }
   }
   my %badhyphcodes;
+  my %problemhyphen;
   foreach my $lc (keys %langcodes) {
+    next if ($lc eq "zerohyph.tex");
     my @found = $tlpdb->find_file("texmf-dist/tex/generic/hyph-utf8/loadhyph/$lc");
     if ($#found < 0) {
-      $badhyphcodes{$lc} = $langcodes{$lc};
+      # try again this time search all packages
+      my @found = $tlpdb->find_file("$lc");
+      if ($#found < 0) {
+        $badhyphcodes{$lc} = $langcodes{$lc};
+      } else {
+        $problemhyphen{$lc} = [ @found ];
+      }
     }
   }
   if (keys %badhyphcodes) {
@@ -99,6 +107,12 @@ sub main
       print "\t$mf (execute in @{$badhyphcodes{$mf}})\n";
     }
   }
+  if (keys %problemhyphen) {
+    print "hyphen files with possible problematic location:\n";
+    foreach my $mf (keys %problemhyphen) {
+      print "\t$mf (@{$problemhyphen{$mf}})\n";
+    }
+  }
   my %badfmtcodes;
   foreach my $lc (keys %fmtcodes) {
     my @found = $tlpdb->find_file("texmf/fmtutil/format.$lc.cnf");