Honor the sarge-ignore tag again, now that we have a reasonable framework

[bugscan.git] / bugreport

diff --git a/bugreport b/bugreport
index 001ce2f84adb4ed9ae3003c9f7d1952adc6e0797..e5db1c7e153dbe7467db3b90c7e7203dcab6536e 100755 (executable)
--- a/bugreport
+++ b/bugreport
@@ -140,9 +140,9 @@ sub MakeStatistics() {
 
                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/);
+                       $pendingtotal++ if ($scanlib::bugs{$nr}->{'pending'});
+                       $patchtotal++ if ($scanlib::bugs{$nr}->{'patch'});
+                       $ignoretotal++ if ($scanlib::bugs{$nr}->{'sarge-ignore'} || $scanlib::bugs{$nr}->{'etch-ignore'});
                        $worrytotal++ if (scanlib::check_worry($scanlib::bugs{$nr}));
                        $stabletotal++ if (scanlib::check_worry_stable($scanlib::bugs{$nr}));