From 220011314d91b1885d08664eae614588efac1fd5 Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Sat, 17 Nov 2001 06:38:04 -0800
Subject: [PATCH] [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.

---
 cgi/common.pl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

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 {
-- 
2.39.5