diff options
author | Norbert Preining <preining@logic.at> | 2009-09-10 13:24:47 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-09-10 13:24:47 +0000 |
commit | 5388445c70ce51b09729d5072a44a906b325b548 (patch) | |
tree | abd202ac634cb9bb4cac47b7207e6d773be2894b /Master | |
parent | 98c5a466f26449600f2930b8249b96259918d415 (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')
-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"; |