cvs commit: modperl-2.0/lib/Apache Status.pm

[stas]

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();