From 6112a4e4f7e373a1852b98ade92676c4aff73385 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@rietz>
Date: Sat, 10 Mar 2007 11:45:42 +0000
Subject: [PATCH] debbugs now supports an arch list to bug_presence, so we can
 stop finding versions/sourceversions and let debbugs do that part again.

---
 scanlib.pm | 19 ++++++-------------
 1 file changed, 6 insertions(+), 13 deletions(-)

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
-- 
2.39.2