summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-02-18 18:23:53 +0000
committerKarl Berry <karl@freefriends.org>2008-02-18 18:23:53 +0000
commitff2dbf25af29f967a8478399338a9babc5f5bade (patch)
tree9fae0e8e295563a1e6cdb1a6e001f025d689bfc3
parent643b23146b2f751249a13b5566765127b34cdbf4 (diff)
no output if no problems
git-svn-id: svn://tug.org/texlive/trunk@6674 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/tlpkg/bin/check-file-coverage15
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