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-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) {