diff options
author | Karl Berry <karl@freefriends.org> | 2008-02-18 18:23:53 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-02-18 18:23:53 +0000 |
commit | ff2dbf25af29f967a8478399338a9babc5f5bade (patch) | |
tree | 9fae0e8e295563a1e6cdb1a6e001f025d689bfc3 /Master | |
parent | 643b23146b2f751249a13b5566765127b34cdbf4 (diff) |
no output if no problems
git-svn-id: svn://tug.org/texlive/trunk@6674 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/tlpkg/bin/check-file-coverage | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/Master/tlpkg/bin/check-file-coverage b/Master/tlpkg/bin/check-file-coverage index 8450cdcda58..dfd48fd4966 100755 --- a/Master/tlpkg/bin/check-file-coverage +++ b/Master/tlpkg/bin/check-file-coverage @@ -1,6 +1,6 @@ #!/usr/bin/env perl # $Id: check-file-coverage 5846 2007-12-23 21:38:57Z preining $ -# Copyright 2007 Norbert Preining +# Copyright 2007, 2008 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # @@ -19,6 +19,7 @@ use TeXLive::TLPSRC; use TeXLive::TLPOBJ; use TeXLive::TLPDB; use TeXLive::TLTREE; +use TeXLive::TLUtils qw(dirname tllog); use Getopt::Long; use Pod::Usage; use File::Path; @@ -82,19 +83,19 @@ sub main } print "NOT HANDLED $_"; } - print "Multiple included files:\n"; + + my $found_multiple = 0; foreach (keys %filetopacks) { my @foo = @{$filetopacks{$_}}; if ($#foo < 0) { warn "that shouldn't happen: $_\n"; } elsif ($#foo > 0) { + print "MULTIPLE INCLUDED FILES:\n" if $found_multiple++ == 0; print " $_ (@foo)\n"; } } - # first we check for multiple included files using simple shell magic - #print `grep '^ ' $opt_master/tlpkg/texlive.tlpdb | awk '{print"\t"\$1}' | sort | uniq -d`; - warn "$0: reading Master tree $opt_master, that takes some time ...\n"; + tllog($::LOG_DEBUG, "reading Master tree $opt_master, patience...\n"); my $tltree = TeXLive::TLTREE->new( "svnroot" => $opt_master ); $tltree->init_from_svn; @@ -154,7 +155,9 @@ See the tlpfiles documentation for details. =head1 DESCRIPTION -Missing +Consistency check of the files in the master tree with the TeX Live +database. Report on files that are included in more than one package, +and on files that are present in the tree but not in any package. =head1 AUTHORS AND COPYRIGHT |