From 4826f276bf38422c8705fca4f303f8f57f5fa79e Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Wed, 31 Dec 2008 17:58:49 -0800 Subject: [PATCH] * Propery handle caching of guess_source => 0 --- Debbugs/Packages.pm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) 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 ]; } } } -- 2.39.5