diff options
author | Karl Berry <karl@freefriends.org> | 2010-05-23 18:09:12 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-05-23 18:09:12 +0000 |
commit | bdbf5181624ab958acf8225d0fc3c95b9894c5ea (patch) | |
tree | 24b55277039da2e6ed70d7e9bbabb8d485e9ad48 /Master/tlpkg/bin/check-files-by-format | |
parent | 26ba412edace5934f0ac8ed1752554bf8f55e423 (diff) |
typos, consistency, autoupdates
git-svn-id: svn://tug.org/texlive/trunk@18436 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/check-files-by-format')
-rwxr-xr-x | Master/tlpkg/bin/check-files-by-format | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/check-files-by-format b/Master/tlpkg/bin/check-files-by-format index aa4ec6725b4..389fd2bf932 100755 --- a/Master/tlpkg/bin/check-files-by-format +++ b/Master/tlpkg/bin/check-files-by-format @@ -176,6 +176,7 @@ my $tmpdir = File::Temp::tempdir(CLEANUP => 1); exit(main()); + sub main { my @files = get_file_list(); @@ -201,14 +202,18 @@ sub main sub get_file_list { my $tlpdb = TeXLive::TLPDB->new(root => $tlroot); - my @files; + my @files = (); for my $tlpname ($tlpdb->list_packages) { my $tlp = $tlpdb->get_package($tlpname); push(@files, $tlp->docfiles, $tlp->runfiles, $tlp->srcfiles); } + # ptex font files are in their own formats; don't bother checking, + # or adding individual entries to the exclude lists. + @files = grep ($_ !~ m!/ptex/!, @files); return @files; } + # return the value in exclude list associated to a file, or undef sub exclude_value { |