diff options
Diffstat (limited to 'Master/tlpkg/bin/tl-compare-tlpdbs')
-rwxr-xr-x | Master/tlpkg/bin/tl-compare-tlpdbs | 18 |
1 files changed, 18 insertions, 0 deletions
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"; |