my $header; # Flag if packagename has already been printed
my $fontset; # Did we change the font?
- for my $p (sort {$a->[0] <=> $b->[0]} keys %scanlib::packagelist) {
+ for my $p (sort {$a cmp $b} keys %scanlib::packagelist) {
next if (defined $bugcfg::exclude{$p});
$header = 0;
$fontset = 0;
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/);