summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-compare-tlpdbs
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tl-compare-tlpdbs')
-rwxr-xr-xMaster/tlpkg/bin/tl-compare-tlpdbs18
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";