local $SIG{__WARN__} = sub {};
next if (!$disttags{$dist});
- my $presence = Debbugs::Status::bug_presence(bug => $f, status => $bug, dist => $dist);
+
+ 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