From 7ba73d0c8f097c4bb90d890034095e324a5a8814 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 5 Dec 2009 04:02:47 +0000 Subject: really fix comparing tlpdbs git-svn-id: svn://tug.org/texlive/trunk@16305 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'Master') 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; -- cgit v1.2.3