summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-12-05 04:02:47 +0000
committerNorbert Preining <preining@logic.at>2009-12-05 04:02:47 +0000
commit7ba73d0c8f097c4bb90d890034095e324a5a8814 (patch)
treec1c4bf9211cd5605cc0241e2977043ddf5113228 /Master
parentbe573266e873eefcc01abe87de51e35d330cba83 (diff)
really fix comparing tlpdbs
git-svn-id: svn://tug.org/texlive/trunk@16305 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-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 6b66e4e48f1..1c1bfce9d30 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -3123,7 +3123,14 @@ sub compare_tlpdbs {
$ret{'removed_packages'} = \@inAnotinB if @inAnotinB;
for my $p ($tlpdbB->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 $tlpA = $tlpdbA->get_package($p);
if (!defined($tlpA)) {
push @inBnotinA, $p;