&PrintPackageHeader($p);
print $scanlib::comments{$p};
}
- for $nr (sort split(/ /, $scanlib::packagelist{$p})) {
+ for $nr (sort @{$scanlib::packagelist{$p}}) {
next if (defined $bugcfg::exclude{$nr});
if (! $header) {
$header = 1;
my $count = 0; # Number of bugs for this package
next if (defined $scanlib::exclude{$p});
- for my $nr (split(/ /, $scanlib::packagelist{$p})) {
+ for my $nr (@{$scanlib::packagelist{$p}}) {
$pendingtotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*P/);
$patchtotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*\+/);
$ignoretotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*I/);
sub FilterBugs() {
for my $p (sort keys %scanlib::packagelist) {
- $scanlib::packagelist{$p} = join(' ', grep { scanlib::check_worry($scanlib::bugs{$_}) } split / /, $scanlib::packagelist{$p});
- delete $scanlib::packagelist{$p} if ($scanlib::packagelist{$p} eq '');
+ $scanlib::packagelist{$p} = [ grep { scanlib::check_worry($scanlib::bugs{$_}) } @{$scanlib::packagelist{$p}} ];
+ delete $scanlib::packagelist{$p} if (scalar @{$scanlib::packagelist{$p}} == 0);
}
}