summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-12-04 04:44:22 +0000
committerNorbert Preining <preining@logic.at>2009-12-04 04:44:22 +0000
commitbe861ba965ad6cda3b589b02f31d38ffd0876e0e (patch)
tree160e23b81b7332ca3868b0ec1f301de1d7f8bcae /Master/tlpkg/TeXLive/TLUtils.pm
parent8443ddeb006f6999829715ac644b4a0a51c78679 (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.pm9
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;