diff options
author | Karl Berry <karl@freefriends.org> | 2008-02-18 18:28:07 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-02-18 18:28:07 +0000 |
commit | 4620a5484f676ec873c426742fc25a02fa009d19 (patch) | |
tree | cd3b0a27ec45eaa7f1c8be2c4d22a2cc9bea1d16 /Master/tlpkg/bin/check-file-coverage | |
parent | ab770b7b6bfbf4d723466874013c84fba97bd940 (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-x | Master/tlpkg/bin/check-file-coverage | 30 |
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; |