summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-compare-tlpdbs
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-11-10 22:24:49 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-11-10 22:24:49 +0000
commit638f4c005b3fa16c40ec8321d6f94958777d2e88 (patch)
tree8652c3e50db58fd325173ea9674c16fce56a3eaa /Master/tlpkg/bin/tl-compare-tlpdbs
parent70e6b54a3c7492522a931f5b6cb5c616c815ff55 (diff)
tl-update-tlnet now ignores texlive.infra unless --all is given.
git-svn-id: svn://tug.org/texlive/trunk@15986 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-compare-tlpdbs')
-rwxr-xr-xMaster/tlpkg/bin/tl-compare-tlpdbs11
1 files changed, 8 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/tl-compare-tlpdbs b/Master/tlpkg/bin/tl-compare-tlpdbs
index 7aedb79f731..8c19ec4d0fe 100755
--- a/Master/tlpkg/bin/tl-compare-tlpdbs
+++ b/Master/tlpkg/bin/tl-compare-tlpdbs
@@ -19,7 +19,9 @@ use TeXLive::TLPDB;
use Getopt::Long;
use Pod::Usage;
-my @ignored_packs = qw/00texlive.installer 00texlive.image/;
+# packages ignored unless --all is given
+# see @critical_pkg_list in tl-update-containers
+my @add_ignored_packs = qw/texlive.infra/;
our ($mydir, $vc_id);
my $opt_version = 0;
@@ -28,7 +30,9 @@ my $opt_help = 0;
TeXLive::TLUtils::process_logging_options();
GetOptions(
"version" => \$opt_version,
- "help|?" => \$opt_help) or pod2usage(1);
+ "help|?" => \$opt_help,
+ "all" => sub { @add_ignored_packs = () },
+) or pod2usage(1);
pod2usage("-exitstatus" => 0, "-verbose" => 2) if $opt_help;
if ($opt_version) { print "$vc_id\n"; exit 0; }
@@ -82,7 +86,8 @@ sub main
$tlpdbA->from_file($tlpdbAsrc);
$tlpdbB->from_file($tlpdbBsrc);
- my %ret = TeXLive::TLUtils::compare_tlpdbs($tlpdbA, $tlpdbB);
+ my %ret = TeXLive::TLUtils::compare_tlpdbs(
+ $tlpdbA, $tlpdbB, @add_ignored_packs);
# anything reported here is a difference in tlpdbs which we do not want
if (keys %ret) {