[Collab-qa-commits] r1300 - udd/udd

[lucas at alioth.debian.org]

Author: lucas
Date: 2008-09-27 08:35:35 +0000 (Sat, 27 Sep 2008)
New Revision: 1300

Modified:
   udd/udd/bugs_gatherer.pl
Log:
copy the mechanism in pkgreport.cgi to the the bin->src mapping

Modified: udd/udd/bugs_gatherer.pl
===================================================================
--- udd/udd/bugs_gatherer.pl	2008-09-26 22:00:46 UTC (rev 1299)
+++ udd/udd/bugs_gatherer.pl	2008-09-27 08:35:35 UTC (rev 1300)
@@ -173,8 +173,6 @@
 	print "Deleting bugs: ",(time() - $t),"s\n" if $timing;
 	$t = time();
 
-	# Used to chache binary to source mappings
-	my %binarytosource = ();
 	my $location = $src_config{archived} ? 'archive' : 'db_h';
 	$table = $src_config{archived} ? $archived_table : $table;
 	# Read all bugs
@@ -212,22 +210,8 @@
 		} qw{date log_modified};
 
 
-		if(not exists $binarytosource{$bug{package}}) {
-			$binarytosource{$bug{package}} = (binarytosource($bug{package}))[0];
-		}
-		my $source = $binarytosource{$bug{package}};
-		my $psource = exists($pkgsrc{$bug{package}}) ? $pkgsrc{$bug{package}} : "(unknown)";
-		if ($source ne $psource) {
-			print "DIFFSRC: ".$bug_nr." ".$bug{package}." ".$source." ".$psource."\n";
-		}
+		my $source = exists($pkgsrc{$bug{package}}) ? $pkgsrc{$bug{package}} : $bug{package};
 
-		if(not defined $source) {
-		# if source is not defined, then we $bug{package} is likely to
-		# be a source package name (or the source package has the same
-		# name as the binary package). See #480818 for ex.
-			$source = $bug{package};
-		}
-
 		#Calculate bug presence in distributions
 		my ($present_in_stable, $present_in_testing, $present_in_unstable, $present_in_experimental);
 		if($src_config{archived}) {