diff options
author | Norbert Preining <preining@logic.at> | 2008-06-24 12:49:44 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-06-24 12:49:44 +0000 |
commit | b21064d86aaafcdb6cca39b296ddb3dedffbded9 (patch) | |
tree | 048c896be6844c9cf1213990f3e91fddd0cfb27b /Master/tlpkg/bin | |
parent | d559c45ea5e9d311b315f40ad7c7a3ca9a8b46c7 (diff) |
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
Diffstat (limited to 'Master/tlpkg/bin')
-rwxr-xr-x | Master/tlpkg/bin/check-execute-consistency | 16 |
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"); |