X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=scanlib.pm;h=c3e12709ee15b210219e559dbf30e9b8a927880a;hp=4c97a1c690c25d4fbd5f968a0030d9b49af0eddf;hb=6112a4e4f7e373a1852b98ade92676c4aff73385;hpb=0aeb6434b6fe5991b04fe3922feffa31380f8a80

diff --git a/scanlib.pm b/scanlib.pm
index 4c97a1c..c3e1270 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -230,19 +230,12 @@ sub scanspooldir() {
 
 			next if (!$disttags{$dist});
 
-			# only check for the archs we care about
-			my %svhash = ();
-			for my $arch qw(alpha amd64 arm hppa i386 ia64 mips mipsel powerpc s390 sparc) {
-				my @versions = Debbugs::Packages::getversions($bug->{'package'}, $dist, $arch);
-				my @sourceversions = Debbugs::Packages::makesourceversions($bug->{'package'}, $arch, @versions);
-
-				for my $sv (@sourceversions) {
-					$svhash{$sv} = 1;
-				}
-			}
-
-			my @sourceversions = keys %svhash;
-			my $presence = Debbugs::Status::bug_presence(bug => $f, status => $bug, sourceversions => \@sourceversions);
+			my $presence = Debbugs::Status::bug_presence(
+				bug => $f, 
+				status => $bug, 
+				dist => $dist, 
+				arch => [ qw(alpha amd64 arm hppa i386 ia64 mips mipsel powerpc s390 sparc) ]
+			);
 
 			# ignore bugs that are absent/fixed in this distribution, include everything
 			# else (that is, "found" which says that the bug is present, and undef, which