Count RC bugs in stable.

[bugscan.git] / scanlib.pm

diff --git a/scanlib.pm b/scanlib.pm
index bda42775f3190b621eee44a6cb17bba58546c50d..ed9fd37dd022f2ccfeb856dbc1f142b0ce60c7e0 100644 (file)
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -238,14 +238,6 @@ sub scanspooldir() {
 
                for my $package (split /[,\s]+/, $bug->{'package'}) {
                        $_= $package; y/A-Z/a-z/; $_= $` if m/[^-+._a-z0-9]/;
-                       if (not defined $section{$_}) {
-                               if (defined $debbugssection{$_}) {
-                                       $relinfo .= "X";
-                               } else {
-                                       next;   # Skip unavailable packages
-                               }
-                       }
-
                        push @{$packagelist{$_}}, $f;
                }
 
@@ -321,11 +313,19 @@ sub check_worry {
        my ($status) = @_;
 
        if ($status =~ m/^\[[^]]*I/ or
-           $status =~ m/ \[[^]]*X/ or
             $status !~ m/ \[[^]]*T/) {
                return 0;
        }
        return 1;
 }
 
+sub check_worry_stable {
+       my ($status) = @_;
+
+       if ($status !~ m/ \[[^]]*S/) {
+               return 0;
+       }
+       return 1;
+}
+
 1;