diff options
author | Karl Berry <karl@freefriends.org> | 2008-12-09 22:41:06 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-12-09 22:41:06 +0000 |
commit | 36cd4ada4fd8de1b3cbba73aea4a6f67788a622e (patch) | |
tree | 736ef6045193a8f3b3856b3781154dcf608f6984 /Master | |
parent | a425057480a2ab8ddea0896d22fff152390cda3d (diff) |
revert accidental commit
git-svn-id: svn://tug.org/texlive/trunk@11570 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/tlpkg/bin/check-depend-consistency | 32 |
1 files changed, 12 insertions, 20 deletions
diff --git a/Master/tlpkg/bin/check-depend-consistency b/Master/tlpkg/bin/check-depend-consistency index 988bbbd6713..2859a3118d2 100755 --- a/Master/tlpkg/bin/check-depend-consistency +++ b/Master/tlpkg/bin/check-depend-consistency @@ -4,7 +4,7 @@ # This file is licensed under the GNU General Public License version 2 # or any later version. # -# Check that all packages are contained in some collection. +# Check that all package are contained in some collection. BEGIN { $^W = 1; @@ -27,6 +27,7 @@ use File::Path; my $help = 0; TeXLive::TLUtils::process_logging_options(); + GetOptions("help|?" => \$help) or pod2usage(1); pod2usage(-exitstatus => 0, -verbose => 2) if $help; @@ -35,26 +36,19 @@ exit (&main ()); sub main { # get the db. - chomp (my $Master = `cd $mydir/../.. && pwd`); - my $tlpdb = TeXLive::TLPDB->new("root" => $Master); - die "$0: Cannot find tlpdb in $Master.\n" unless defined($tlpdb); - + chomp (my $Master = `cd $mydir/../.. && pwd`); # xx TLPDB should default + my $tlpdb = TeXLive::TLPDB->new ("root" => "$Master"); + die("Cannot find tlpdb in $Master!\n") unless defined($tlpdb); my %presentpkg; + my %wrongdep; for my $pkg ($tlpdb->list_packages) { $presentpkg{$pkg} = 1; } - - # list of collections. - my @colls = $tlpdb->collections; - my @coll_deps = $tlpdb->expand_dependencies("-no-collections",$tlpdb,@colls); - - - my %wrongdep; - my %nodep; for my $pkg ($tlpdb->list_packages) { # do not check any package starting with 00texlive next if $pkg =~ m/^00texlive/; - + #next if ($pkg =~ m/^00texlive\.config$/); + #next if ($pkg =~ m/^00texlive-installation\.config$/); for my $d ($tlpdb->get_package($pkg)->depends) { next if ($d =~ m/\.ARCH$/); if (!defined($presentpkg{$d})) { @@ -62,7 +56,6 @@ sub main } } } - if (keys %wrongdep) { print "DEPENDS WITHOUT PACKAGES:\n"; for my $d (keys %wrongdep) { @@ -72,11 +65,12 @@ sub main } + __END__ =head1 NAME -check-depend-consistency - check that all dependencies exist as packages +check-depend-consistency - check that all depends actually exist as packages =head1 SYNOPSIS @@ -90,10 +84,8 @@ function in L<TeXLive::TLUtils> for details. =head1 DESCRIPTION -Check that all C<depend> statements in all TeX Live packages -(collections, schemes, and normal packages) refer to existing packages, -according to the tlpdb that is within the hierarchy from which this -script is invoked. +Check consistency of C<depend> statements in all TeX Live packages, +including collections and schemes. =head1 AUTHORS AND COPYRIGHT |