From: Steinar H. Gunderson <sesse@rietz>
Date: Sun, 11 Mar 2007 01:36:32 +0000 (+0000)
Subject: Check that a package is really present in a distribution before putting
X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=commitdiff_plain;h=4ef8564c7e87c67015de727dbf9bd23a51f927d3;ds=sidebyside

Check that a package is really present in a distribution before putting
it in relinfo. This is a temporary thing until debbugs fixes that itself.
---

diff --git a/scanlib.pm b/scanlib.pm
index bda4277..65adb63 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -200,6 +200,18 @@ sub scanspooldir() {
 
 				next if (!$disttags{$dist});
 
+				# This is needed for now
+				my $exists = 0;
+				for my $arch (@bugcfg::architectures) {
+					for my $pkg (split /[,\s]+/, $bug->{'package'}) {
+						my @versions = Debbugs::Packages::getversions($pkg, $dist, $arch);
+						$exists = 1 if (scalar @versions > 0);
+					}
+					last if $exists;
+				}
+
+				next if !$exists;
+
 				my $presence = Debbugs::Status::bug_presence(
 					bug => $f, 
 					status => $bug,