stas 2003/11/15 13:36:42
Modified: lib/Apache Status.pm
Log:
cache the config summary as in the original Liz's proposal
Revision Changes Path
1.14 +2 -2 modperl-2.0/lib/Apache/Status.pm
Index: Status.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/Status.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -u -r1.13 -r1.14
--- Status.pm 15 Nov 2003 21:15:45 -0000 1.13
+++ Status.pm 15 Nov 2003 21:36:42 -0000 1.14
@@ -819,10 +819,10 @@
# provide a workaround
if ($Config::Config{useithreads} and $] > 5.008 and $] < 5.008003) {
return $Config::summary_expanded if $Config::summary_expanded;
- (my $summary_expanded = $Config::summary) =~
+ ($Config::summary_expanded = $Config::summary) =~
s{\$(\w+)}
{ my $c = $Config::Config{$1}; defined($c) ? $c : 'undef' }ge;
- return $summary_expanded;
+ return $Config::summary_expanded;
}
else {
return Config::myconfig();
