From ebb65ed5c6e4d55246180bc0023b49e4d2e9b304 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 18 Aug 2009 23:03:57 -0700
Subject: [PATCH] fix dumb infinite loop; really fix this properly soon,
 please.

---
 Debbugs/Status.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index b518a8e..26b8a84 100644
--- 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;
  	       }
 	  }
-- 
2.39.2