fix dumb infinite loop; really fix this properly soon, please.

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index b518a8ecbd61e115fe1055b00f9c609ecfb26397..26b8a84a8434e7469a1127ab23f1b8894cf9345a 100644 (file)
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -1242,8 +1242,8 @@ sub bug_presence {
               # it; it's needed to properly handle bugs which are
               # erroneously assigned to the binary package, and we'll
               # probably have it go away eventually.
-              if (not keys %sourceversions) {
-                  push @archs, undef;
+              if (not keys %sourceversions and (not @archs or defined $archs[0])) {
+                  @archs = (undef);
                   goto GET_SOURCE_VERSIONS;
               }
          }