diff options
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/tlpkg/bin/check-file-coverage | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/check-file-coverage b/Master/tlpkg/bin/check-file-coverage index d0a0057977f..facc6ab0efc 100755 --- a/Master/tlpkg/bin/check-file-coverage +++ b/Master/tlpkg/bin/check-file-coverage @@ -62,14 +62,14 @@ sub main my %filetopacks; while (<TLPDB>) { # ignore files mentioned in 00texlive.installer - next if ($pack eq "00texlive.installer"); next if m/^\s*#/; next if m/^\s*$/; next if m/^((bin|run|doc|src)files|depend|execute|category|revision|shortdesc|longdesc|catalogue)/; - if (m/^name\s+(\S+)\s*$/) { + if (m/^name\s+(\S+)\s+$/) { $pack = "$1"; next; } + next if ($pack eq "00texlive.installer"); if (m/^ ([^\s]+)\s+/) { push @{$filetopacks{$1}}, $pack; next; @@ -77,13 +77,19 @@ sub main print "NOT HANDLED $_"; } - my $found_multiple = 0; + my @multiple = (); foreach (keys %filetopacks) { my @foo = @{$filetopacks{$_}}; if ($#foo < 0) { warn "that shouldn't happen: $_\n"; } elsif ($#foo > 0) { - print "$0: MULTIPLE INCLUDED FILES:\n" if $found_multiple++ == 0; + push @multiple, $_; + } + } + if ($#multiple >= 0) { + print "$0: MULTIPLE INCLUDED FILES:\n"; + foreach (sort @multiple) { + my @foo = @{$filetopacks{$_}}; print " $_ (@foo)\n"; } } |