my $ignoretotal=0; # Total number of bugs marked ignore
my $worrytotal=0; # Total number of bugs we're actually worried about
my $stabletotal=0; # Total number of bugs affecting stable
+ my $oldstabletotal=0; # Total number of bugs affecting oldstable
my %list; # List of bugnumber associated with package
my %seen_bugs; # bugs which have already been counted
$scanlib::packagelist{$p} = [ grep { scanlib::check_worry_stable($scanlib::bugs{$_}) } @{$scanlib::packagelist{$p}} ];
delete $scanlib::packagelist{$p} if (scalar @{$scanlib::packagelist{$p}} == 0);
}
-
+}
sub FilterBugsOldStable() {
for my $p (sort keys %scanlib::packagelist) {
$scanlib::packagelist{$p} = [ grep { scanlib::check_worry_oldstable($scanlib::bugs{$_}) } @{$scanlib::packagelist{$p}} ];