From: doogie <>
Date: Sat, 17 Nov 2001 14:38:04 +0000 (-0800)
Subject: [project @ 2001-11-17 06:38:04 by doogie]
X-Git-Tag: release/2.6.0~1089
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=220011314d91b1885d08664eae614588efac1fd5;p=debbugs.git

[project @ 2001-11-17 06:38:04 by doogie]
Return previously read data in getmaintainers and getpkgsrc, instead of
reparsing the file each time they are called.
---

diff --git a/cgi/common.pl b/cgi/common.pl
index 626be400..e071e826 100644
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -387,7 +387,9 @@ sub maintencoded {
     return $encoded;
 }
 
+my $_maintainer;
 sub getmaintainers {
+    return $_maintainer if $_maintainer;
     my %maintainer;
 
     open(MM,"$gMaintainerFile") or &quit("open $gMaintainerFile: $!");
@@ -406,11 +408,13 @@ sub getmaintainers {
 	$maintainer{$a}= $b;
     }
     close(MM);
-
-    return \%maintainer;
+    $_maintainer = \%maintainer;
+    return $_maintainer;
 }
 
+my $_pkgsrc;
 sub getpkgsrc {
+    return $_pkgsrc if $_pkgsrc;
     my %pkgsrc;
 
     open(MM,"$gPackageSource") or &quit("open $gPackageSource: $!");
@@ -421,8 +425,8 @@ sub getpkgsrc {
 	$pkgsrc{$a}= $b;
     }
     close(MM);
-
-    return \%pkgsrc
+    $_pkgsrc = \%pkgsrc;
+    return $_pkgsrc;
 }
 
 sub getbugdir {