- $nottestingcount++ if ($scanlib::bugs{$nr} =~ m/ \[[^]]*X/);
- if (defined $scanlib::comments{$nr}) {
- 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";
- }
- }
-
- if (defined($scanlib::comments{$p}) && $scanlib::comments{$p} =~ m/^\[REMOVE\]/) {
- $removecount += scalar @{$scanlib::packagelist{$p}};
+ $worrycount++ if (scanlib::check_worry($scanlib::bugs{$nr}));
+ $stablecount++ if (scanlib::check_worry_stable($scanlib::bugs{$nr}));