debbugs now supports an arch list to bug_presence, so we can stop finding

versions/sourceversions and let debbugs do that part again.

diff --git a/scanlib.pm b/scanlib.pm
index 4c97a1c690c25d4fbd5f968a0030d9b49af0eddf..c3e12709ee15b210219e559dbf30e9b8a927880a 100644 (file)
--- 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