summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-12-09 22:41:06 +0000
committerKarl Berry <karl@freefriends.org>2008-12-09 22:41:06 +0000
commit36cd4ada4fd8de1b3cbba73aea4a6f67788a622e (patch)
tree736ef6045193a8f3b3856b3781154dcf608f6984 /Master
parenta425057480a2ab8ddea0896d22fff152390cda3d (diff)
revert accidental commit
git-svn-id: svn://tug.org/texlive/trunk@11570 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/bin/check-depend-consistency32
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