really fix comparing tlpdbs

git-svn-id: svn://tug.org/texlive/trunk@16305 c570f23f-e606-0410-a88d-b1316a301751

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;