From 2231368ed7461a3be4f802462628cb7b261f829c Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
Date: Wed, 29 Feb 2012 15:18:38 +0100
Subject: Bug 730877: Improve _get_string_from_file() performances by caching
 loaded files r=glob a=LpSolit

---
 Bugzilla/Install/Util.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Bugzilla/Install')

diff --git a/Bugzilla/Install/Util.pm b/Bugzilla/Install/Util.pm
index 4b6e22e90..ed23d0093 100644
--- a/Bugzilla/Install/Util.pm
+++ b/Bugzilla/Install/Util.pm
@@ -529,6 +529,11 @@ sub no_checksetup_from_cgi {
 # Used by install_string
 sub _get_string_from_file {
     my ($string_id, $file) = @_;
+    # If we already loaded the file, then use its copy from the cache.
+    if (my $strings = _cache()->{strings_from_file}->{$file}) {
+        return $strings->{$string_id};
+    }
+
     # This module is only needed by checksetup.pl,
     # so only load it when needed.
     require Safe;
@@ -537,6 +542,7 @@ sub _get_string_from_file {
     my $safe = new Safe;
     $safe->rdo($file);
     my %strings = %{$safe->varglob('strings')};
+    _cache()->{strings_from_file}->{$file} = \%strings;
     return $strings{$string_id};
 }
 
-- 
cgit v1.2.3-24-g4f1b