summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-compare-tlpdbs
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-09-10 13:24:47 +0000
committerNorbert Preining <preining@logic.at>2009-09-10 13:24:47 +0000
commit5388445c70ce51b09729d5072a44a906b325b548 (patch)
treeabd202ac634cb9bb4cac47b7207e6d773be2894b /Master/tlpkg/bin/tl-compare-tlpdbs
parent98c5a466f26449600f2930b8249b96259918d415 (diff)
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
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";