summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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";
}
}