X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=scanlib.pm;h=40f293092d58c6b3de23aaef545130d58b15ac84;hp=65adb6312e18fff97c260f87f311071e49436452;hb=fb2fdeb9ef55b7cab90ab1ca736446942a95c29c;hpb=4ef8564c7e87c67015de727dbf9bd23a51f927d3 diff --git a/scanlib.pm b/scanlib.pm index 65adb63..40f2930 100644 --- 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; }