From: Don Armstrong <don@volo>
Date: Sat, 8 Jul 2006 07:30:47 +0000 (-0700)
Subject:  * Merge changes to add a source version cache from Sesse
X-Git-Tag: release/2.6.0~604^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=325ade2c613e2cbf4564a8e7f8b8304a82efde4c;p=debbugs.git

 * Merge changes to add a source version cache from Sesse
---

diff --git a/cgi/common.pl b/cgi/common.pl
index 4c64ad60..82f3ef37 100644
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -892,6 +892,7 @@ sub buglog {
 # named source package. This is used to cope with source packages whose
 # names have changed during their history, and with cases where source
 # version numbers differ from binary version numbers.
+my %_sourceversioncache = ();
 sub makesourceversions {
     my $pkg = shift;
     my $arch = shift;
@@ -902,6 +903,15 @@ sub makesourceversions {
             # Already a source version.
             $sourceversions{$version} = 1;
         } else {
+            my $cachearch = (defined $arch) ? $arch : '';
+            my $cachekey = "$pkg/$cachearch/$version";
+            if (exists($_sourceversioncache{$cachekey})) {
+                for my $v (@{$_sourceversioncache{$cachekey}}) {
+		    $sourceversions{$v} = 1;
+		}
+                next;
+            }
+
             my @srcinfo = binarytosource($pkg, $version, $arch);
             unless (@srcinfo) {
                 # We don't have explicit information about the
@@ -922,6 +932,7 @@ sub makesourceversions {
                 }
             }
             $sourceversions{"$_->[0]/$_->[1]"} = 1 foreach @srcinfo;
+            $_sourceversioncache{$cachekey} = [ map { "$_->[0]/$_->[1]" } @srcinfo ];
         }
     }