summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-06-24 06:39:29 +0000
committerNorbert Preining <preining@logic.at>2008-06-24 06:39:29 +0000
commit3d49101613586a73108952948cec199771bcf8b6 (patch)
tree6b31d0ec050edde37c881ac6b92adb4822d411fd /Master
parent3e6c71a7daf2bf74f3ddf9c378cca70a47713a10 (diff)
fix check-file-coverage
git-svn-id: svn://tug.org/texlive/trunk@8965 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/bin/check-file-coverage14
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";
}
}