diff options
author | Norbert Preining <preining@logic.at> | 2009-12-04 04:44:22 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-12-04 04:44:22 +0000 |
commit | be861ba965ad6cda3b589b02f31d38ffd0876e0e (patch) | |
tree | 160e23b81b7332ca3868b0ec1f301de1d7f8bcae /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | 8443ddeb006f6999829715ac644b4a0a51c78679 (diff) |
make TLUtils::compare_tlpdb ignore .ARCH packages of the given ignore list, too
git-svn-id: svn://tug.org/texlive/trunk@16292 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 0d3bfe0d83c..6b66e4e48f1 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3105,7 +3105,14 @@ sub compare_tlpdbs { my %ret; for my $p ($tlpdbA->list_packages()) { - next if TeXLive::TLUtils::member($p, @ignored_packs); + my $is_ignored = 0; + for my $ign (@ignored_packs) { + if (($p =~ m/^$ign$/) || ($p =~ m/^$ign\./)) { + $is_ignored = 1; + last; + } + } + next if $is_ignored; my $tlpB = $tlpdbB->get_package($p); if (!defined($tlpB)) { push @inAnotinB, $p; |