From 5388445c70ce51b09729d5072a44a906b325b548 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 10 Sep 2009 13:24:47 +0000 Subject: ignore 00texlive.installer and 00texlive.image on comparison, and echo the packs that are in one but not the other tlpdb git-svn-id: svn://tug.org/texlive/trunk@15208 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tl-compare-tlpdbs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'Master') diff --git a/Master/tlpkg/bin/tl-compare-tlpdbs b/Master/tlpkg/bin/tl-compare-tlpdbs index dd4104be181..9324b818fd5 100755 --- a/Master/tlpkg/bin/tl-compare-tlpdbs +++ b/Master/tlpkg/bin/tl-compare-tlpdbs @@ -22,6 +22,8 @@ use Getopt::Long; use Pod::Usage; use File::Path; +my @ignored_packs = qw/00texlive.installer 00texlive.image/; + our ($mydir, $vc_id); my $opt_version = 0; my $opt_help = 0; @@ -91,6 +93,7 @@ sub main my %filedifferrors; for my $p ($tlpdbA->list_packages()) { + next if TeXLive::TLUtils::member($p, @ignored_packs); my $tlpB = $tlpdbB->get_package($p); if (!defined($tlpB)) { push @inAnotinB, $p; @@ -99,6 +102,7 @@ sub main } } for my $p ($tlpdbB->list_packages()) { + next if TeXLive::TLUtils::member($p, @ignored_packs); my $tlpA = $tlpdbA->get_package($p); if (!defined($tlpA)) { push @inBnotinA, $p; @@ -136,6 +140,20 @@ sub main print "$p"; } } + if (@inAnotinB) { + $ret = 1; + print "packages which occur in the left tlpdb but not in the right:\n"; + for my $p (@inAnotinB) { + print "$p\n"; + } + } + if (@inBnotinA) { + $ret = 1; + print "packages which occur in the right tlpdb but not in the left:\n"; + for my $p (@inBnotinA) { + print "$p\n"; + } + } for my $pkg (keys %filedifferrors) { $ret = 1; print "file differences in $pkg:\n"; -- cgit v1.2.3