Remove the tests for "not in testing"; they are no longer much use.

[bugscan.git] / scanlib.pm

diff --git a/scanlib.pm b/scanlib.pm
index 65adb6312e18fff97c260f87f311071e49436452..40f293092d58c6b3de23aaef545130d58b15ac84 100644 (file)
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -202,14 +202,10 @@ sub scanspooldir() {
 
                                # This is needed for now
                                my $exists = 0;
-                               for my $arch (@bugcfg::architectures) {
-                                       for my $pkg (split /[,\s]+/, $bug->{'package'}) {
-                                               my @versions = Debbugs::Packages::getversions($pkg, $dist, $arch);
-                                               $exists = 1 if (scalar @versions > 0);
-                                       }
-                                       last if $exists;
+                               for my $pkg (split /[,\s]+/, $bug->{'package'}) {
+                                       my @versions = Debbugs::Packages::getversions($pkg, $dist, undef);
+                                       $exists = 1 if (scalar @versions > 0);
                                }
-
                                next if !$exists;
 
                                my $presence = Debbugs::Status::bug_presence(
@@ -250,14 +246,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;
                }
 
@@ -333,7 +321,6 @@ sub check_worry {
        my ($status) = @_;
 
        if ($status =~ m/^\[[^]]*I/ or
-           $status =~ m/ \[[^]]*X/ or
             $status !~ m/ \[[^]]*T/) {
                return 0;
        }