- local($bugcount); # Total number of bugs so far
- local($count); # Number of bugs for this package
- local($remtotal); # Total number of bugs for packages marked REMOVE
- local($patchtotal); # Total number of bugs marked patch
- local($pendingtotal); # Total number of bugs marked pending
- local($ignoretotal); # Total number of bugs marked ignore
- local($nottestingtotal); # Total number of bugs on packages not in testing
- local($worrytotal); # Total number of bugs we're actually worried about
- local($p); # Index variable
- local(%list); # List of bugnumber associated with package
-
- $bugcount=0;
- for $p (sort keys %packagelist) {
- next if (defined $exclude{$p});
- $count=0;
- for $nr (split(/ /, $packagelist{$p})) {
- $pendingtotal++ if ($bugs{$nr} =~ m/^\[[^]]*P/);
- $patchtotal++ if ($bugs{$nr} =~ m/^\[[^]]*\+/);
- $ignoretotal++ if ($bugs{$nr} =~ m/^\[[^]]*I/);
- $nottestingtotal++ if ($bugs{$nr} =~ m/ \[[^]]*X/);
- $worrytotal++ unless (
- $bugs{$nr} =~ m/^\[[^]]*I/ or
- $bugs{$nr} =~ m/ \[[^]]*X/ or
- ($bugs{$nr} =~ m/ \[[^]]*[OSUE]/ and $bugs{$nr} !~ m/ \[[^]]*T/));
-
- if (not defined($exclude{$nr})) {
+ my $bugcount=0; # Total number of bugs so far
+ my $remtotal=0; # Total number of bugs for packages marked REMOVE
+ my $patchtotal=0; # Total number of bugs marked patch
+ my $pendingtotal=0; # Total number of bugs marked pending
+ my $ignoretotal=0; # Total number of bugs marked ignore
+ my $nottestingtotal=0; # Total number of bugs on packages not in testing
+ my $worrytotal=0; # Total number of bugs we're actually worried about
+ my %list; # List of bugnumber associated with package
+
+ for my $p (sort keys %scanlib::packagelist) {
+ my $count = 0; # Number of bugs for this package
+
+ next if (defined $scanlib::exclude{$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/);
+ $nottestingtotal++ if ($scanlib::bugs{$nr} =~ m/ \[[^]]*X/);
+ $worrytotal++ if (scanlib::check_worry($scanlib::bugs{$nr}));
+
+ if (not defined($scanlib::exclude{$nr})) {