diff options
author | Norbert Preining <preining@logic.at> | 2008-06-24 06:39:29 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-06-24 06:39:29 +0000 |
commit | 3d49101613586a73108952948cec199771bcf8b6 (patch) | |
tree | 6b31d0ec050edde37c881ac6b92adb4822d411fd /Master/tlpkg | |
parent | 3e6c71a7daf2bf74f3ddf9c378cca70a47713a10 (diff) |
fix check-file-coverage
git-svn-id: svn://tug.org/texlive/trunk@8965 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-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"; } } |