summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/check-file-coverage
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-02-18 18:28:07 +0000
committerKarl Berry <karl@freefriends.org>2008-02-18 18:28:07 +0000
commit4620a5484f676ec873c426742fc25a02fa009d19 (patch)
treecd3b0a27ec45eaa7f1c8be2c4d22a2cc9bea1d16 /Master/tlpkg/bin/check-file-coverage
parentab770b7b6bfbf4d723466874013c84fba97bd940 (diff)
(IgnorePatterns): add remaining shell scripts.
git-svn-id: svn://tug.org/texlive/trunk@6676 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/check-file-coverage')
-rwxr-xr-xMaster/tlpkg/bin/check-file-coverage30
1 files changed, 16 insertions, 14 deletions
diff --git a/Master/tlpkg/bin/check-file-coverage b/Master/tlpkg/bin/check-file-coverage
index dfd48fd4966..119f92a72a8 100755
--- a/Master/tlpkg/bin/check-file-coverage
+++ b/Master/tlpkg/bin/check-file-coverage
@@ -25,18 +25,20 @@ use Pod::Usage;
use File::Path;
-my @IgnorePatterns = qw|support/ source/ setuptl/
- common.sh$ config.guess$ config.sub$
- texmf-dist/README$ texmf-doc/README$ texmf/README$
- texmf-dist/ls-R$ texmf/ls-R$
- tlpkg/tlpsrc/
- tlpkg/bin
- texmf/lists/
- .mkisofsrc$ 00INST.TL$ 00LIVE.TL$ autorun.inf$
- tlpkg/lib/ tlpkg/tests/ tlpkg/etc/
- tlpkg/texlive.pkgver tlpkg/texlive.tlpdb
- |;
-
+my @IgnorePatterns = qw!
+ .mkisofsrc$ 00INST.TL$ 00LIVE.TL$ autorun.inf$
+ common.sh$ utils.sh$
+ install-(compr|live|pkg-compr|pkg-live).sh$
+ config.guess$ config.sub$
+ support/ source/ setuptl/
+ texmf-dist/README$ texmf-doc/README$ texmf/README$
+ texmf-dist/ls-R$ texmf/ls-R$
+ texmf/lists/
+ tlpkg/tlpsrc/
+ tlpkg/bin
+ tlpkg/lib/ tlpkg/tests/ tlpkg/etc/
+ tlpkg/texlive.pkgver tlpkg/texlive.tlpdb
+!;
chomp (my $opt_master = `cd $::mydir/../.. && pwd`);
my $opt_debug = 0;
@@ -90,7 +92,7 @@ sub main
if ($#foo < 0) {
warn "that shouldn't happen: $_\n";
} elsif ($#foo > 0) {
- print "MULTIPLE INCLUDED FILES:\n" if $found_multiple++ == 0;
+ print "$0: MULTIPLE INCLUDED FILES:\n" if $found_multiple++ == 0;
print " $_ (@foo)\n";
}
}
@@ -124,7 +126,7 @@ sub main
}
}
if (@nothit) {
- print "NOT COVERED FILES:\n";
+ print "$0: NOT COVERED FILES:\n";
for my $f (sort @nothit) { print "\t$f\n"; }
}
return 0;