- next if (defined $scanlib::exclude{$p});
- $count=0;
- for my $nr (split(/ /, $scanlib::packagelist{$p})) {
- $pendingtotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*P/);
- $patchtotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*\+/);
- $ignoretotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*I/);
- $nottestingtotal++ if ($scanlib::bugs{$nr} =~ m/ \[[^]]*X/);
- $worrytotal++ unless (
- $scanlib::bugs{$nr} =~ m/^\[[^]]*I/ or
- $scanlib::bugs{$nr} =~ m/ \[[^]]*X/ or
- ($scanlib::bugs{$nr} =~ m/ \[[^]]*[OSUE]/ and $scanlib::bugs{$nr} !~ m/ \[[^]]*T/));
-
- if (not defined($scanlib::exclude{$nr})) {
- $bugcount++;
- $count++;
- }
+ my $count = 0; # Number of bugs for this package
+
+ for my $nr (@{$scanlib::packagelist{$p}}) {
+ $pendingtotal++ if ($scanlib::bugs{$nr}->{'pending'});
+ $patchtotal++ if ($scanlib::bugs{$nr}->{'patch'});
+ $ignoretotal++ if ($scanlib::bugs{$nr}->{'wheezy-ignore'} || $scanlib::bugs{$nr}->{'squeeze-ignore'});
+ $worrytotal++ if (scanlib::check_worry($scanlib::bugs{$nr}));
+ $stabletotal++ if (scanlib::check_worry_stable($scanlib::bugs{$nr}));
+
+ $bugcount++;
+ $count++;