- $pendingcount++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*P/);
- $patchcount++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*\+/);
- $ignorecount++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*I/);
- $nottestingcount++ if ($scanlib::bugs{$nr} =~ m/ \[[^]]*X/);
- if (defined $scanlib::comments{$nr}) {
- my $sect = ($scanlib::comments{$nr} =~ m/\[([^]]*)\]/);
- $sectcount{$sect}++;
- }
+ $pendingcount++ if ($scanlib::bugs{$nr}->{'pending'});
+ $patchcount++ if ($scanlib::bugs{$nr}->{'patch'});
+ $ignorecount++ if ($scanlib::bugs{$nr}->{'sarge-ignore'} || $scanlib::bugs{$nr}->{'etch-ignore'});