exit 0;
}
-my ($opt_h,$opt_V,$opt_S,$opt_C);
+our ($opt_h,$opt_V,$opt_S,$opt_C);
getopts('VhS:C:');
ShowUsage if ($opt_h);
for my $p (keys %scanlib::packagelist) {
next if (defined $bugcfg::exclude{$p});
- for my $nr (sort split(/ /, $scanlib::packagelist{$p})) {
+ for my $nr (sort @{$scanlib::packagelist{$p}}) {
next if (defined $bugcfg::exclude{$nr});
$total++;
$pendingcount++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*P/);
my $sect = ($scanlib::comments{$nr} =~ m/\[([^]]*)\]/);
$sectcount{$sect}++;
}
- unless ($scanlib::bugs{$nr} =~ m/^\[[^]]*I/ or
- $scanlib::bugs{$nr} =~ m/ \[[^]]*X/ or
- ($scanlib::bugs{$nr} =~ m/ \[[^]]*[OSUE]/ and $scanlib::bugs{$nr} !~ m/ \[[^]]*T/)) {
- $worrycount++;
- # print STDERR "$nr $bugs{$nr}\n";
- }
+ $worrycount++ if (scanlib::check_worry($scanlib::bugs{$nr}));
}
if (defined($scanlib::comments{$p}) && $scanlib::comments{$p} =~ m/^\[REMOVE\]/) {
- my @a = split(/ /,$scanlib::packagelist{$p});
- $removecount += scalar(@a);
+ $removecount += scalar @{$scanlib::packagelist{$p}};
}
}