if src:, return the source package immediately

[debbugs.git] / Debbugs / Packages.pm

diff --git a/Debbugs/Packages.pm b/Debbugs/Packages.pm
index 54885aedc5dee1fdff397cb27e77df3f45952ed2..a7bf363d8ef5ead440e98f8f3fd0ae595a3b4360 100644 (file)
--- a/Debbugs/Packages.pm
+++ b/Debbugs/Packages.pm
@@ -144,6 +144,9 @@ sub binarytosource {
     # need an extra cache for speed here.
     return () unless defined $gBinarySourceMap;
 
+    if ($binname =~ m/^src:(.+)$/) {
+       return $1;
+    }
     if (not tied %_binarytosource) {
         tie %_binarytosource, MLDBM => $gBinarySourceMap, O_RDONLY or
              die "Unable to open $gBinarySourceMap for reading";
@@ -484,7 +487,7 @@ sub make_source_versions {
                    }
                    elsif ($param{guess_source} and
                           exists$param{source_version_cache}{$cachekey.'/guess'}) {
-                       for my $v (@{$param{source_version_cache}{$cachekey}}) {
+                       for my $v (@{$param{source_version_cache}{$cachekey.'/guess'}}) {
                            $sourceversions{$v} = 1;
                        }
                        next;