* Propery handle caching of guess_source => 0

diff --git a/Debbugs/Packages.pm b/Debbugs/Packages.pm
index b448db3c42e2731009575251f5a15086768711af..da01c70070560f7f586e985fb50a855edb6ea579 100644 (file)
--- 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 ];
                }
            }
         }