From 3d49101613586a73108952948cec199771bcf8b6 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 24 Jun 2008 06:39:29 +0000 Subject: fix check-file-coverage git-svn-id: svn://tug.org/texlive/trunk@8965 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/check-file-coverage | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg/bin') 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 () { # 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"; } } -- cgit v1.2.3