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