From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 1 Jan 2009 01:58:49 +0000 (-0800)
Subject:  * Propery handle caching of guess_source => 0
X-Git-Tag: release/2.6.0~461^2~71
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4826f276bf38422c8705fca4f303f8f57f5fa79e;p=debbugs.git

 * Propery handle caching of guess_source => 0
---

diff --git a/Debbugs/Packages.pm b/Debbugs/Packages.pm
index b448db3c..da01c700 100644
--- a/Debbugs/Packages.pm
+++ b/Debbugs/Packages.pm
@@ -483,6 +483,13 @@ sub make_source_versions {
 			}
 			next;
 		    }
+		    elsif ($param{guess_source} and
+			   exists$param{source_version_cache}{$cachekey.'/guess'}) {
+			for my $v (@{$param{source_version_cache}{$cachekey}}) {
+			    $sourceversions{$v} = 1;
+			}
+			next;
+		    }
 		    my @srcinfo = binarytosource($pkg, $version, $arch);
 		    if (not @srcinfo) {
 			# We don't have explicit information about the
@@ -503,10 +510,15 @@ sub make_source_versions {
 			    } else {
 				next;
 			    }
+			    # store guesses in a slightly different location
+			    $param{source_version_cache}{$cachekey.'/guess'} = [ map { "$_->[0]/$_->[1]" } @srcinfo ];
 			}
 		    }
+		    else {
+			# only store this if we didn't have to guess it
+			$param{source_version_cache}{$cachekey} = [ map { "$_->[0]/$_->[1]" } @srcinfo ];
+		    }
 		    $sourceversions{"$_->[0]/$_->[1]"} = 1 foreach @srcinfo;
-		    $param{source_version_cache}{$cachekey} = [ map { "$_->[0]/$_->[1]" } @srcinfo ];
 		}
 	    }
         }