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

[lucas at alioth.debian.org]

Author: lucas
Date: 2008-09-26 22:00:46 +0000 (Fri, 26 Sep 2008)
New Revision: 1299

Modified:
   udd/udd/bugs_gatherer.pl
Log:
add some debugging output to compare the result of binarytosource and getpkgsrc

Modified: udd/udd/bugs_gatherer.pl
===================================================================
--- udd/udd/bugs_gatherer.pl	2008-09-26 21:38:25 UTC (rev 1298)
+++ udd/udd/bugs_gatherer.pl	2008-09-26 22:00:46 UTC (rev 1299)
@@ -16,7 +16,7 @@
 
 use Debbugs::Bugs qw{get_bugs};
 use Debbugs::Status qw{read_bug get_bug_status bug_presence};
-use Debbugs::Packages qw{binarytosource};
+use Debbugs::Packages qw{binarytosource getpkgsrc};
 use Debbugs::Config qw{:globals};
 use Debbugs::User;
 #use Debbugs::User qw{read_usertags};
@@ -134,6 +134,8 @@
 	my $table = $src_config{table};
 	my $archived_table = $src_config{'archived-table'};
 
+	my %pkgsrc = %{getpkgsrc()};
+
 	my @modified_bugs;
 
 	if($src_config{archived}) {
@@ -214,6 +216,10 @@
 			$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";
+		}
 
 		if(not defined $source) {
 		# if source is not defined, then we $bug{package} is likely to