From db439f4044efdec3b5383b20fb0799c2582099dc Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@rietz>
Date: Tue, 19 Jun 2007 22:27:39 +0000
Subject: [PATCH] Give "source" as architecture for bug_presence(), in order to
 also detect bugs that are filed against source packages that are not also
 binary packages.

---
 scanlib.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scanlib.pm b/scanlib.pm
index 50a6951..7451d88 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -142,6 +142,8 @@ sub scanspooldir() {
 	my $skip;		# Flow control
 	my $walk;		# index variable
 	my $taginfo;	# Tag info
+					
+	my @archs_with_source = ( @bugcfg::architectures, 'source' );
 
 	chdir($dir) or die "chdir $dir: $!\n";
 
@@ -210,7 +212,7 @@ sub scanspooldir() {
 					bug => $f, 
 					status => $bug, 
 					dist => $dist, 
-					arch => \@bugcfg::architectures
+					arch => \@archs_with_source
 				);
 
 				# ignore bugs that are absent/fixed in this distribution, include everything
-- 
2.39.5