-$closed=0;
-for $p (keys %oldbugs) {
- for $b (split(/ /, $oldbugs{$p})) {
- if (not ($packagelist{$p} =~ m/\b$b\b/)) {
- $removed{$p} .= "$b ";
+my $closed=0;
+for my $p (keys %oldbugs) {
+ for $b (@{$oldbugs{$p}}) {
+ if (!defined($scanlib::packagelist{$p}) || scalar grep { $_ == $b } @{$scanlib::packagelist{$p}} == 0) {
+ push @{$removed{$p}}, $b;