perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl/lib/Apache PerlRun.pm
Date Mon, 29 Jan 2001 22:13:46 GMT
dougm       01/01/29 14:13:45

  Modified:    lib/Apache PerlRun.pm
  Log:
  enhanced 'prototype mismatch' fix
  
  Revision  Changes    Path
  1.36      +1 -1      modperl/lib/Apache/PerlRun.pm
  
  Index: PerlRun.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v
  retrieving revision 1.35
  retrieving revision 1.36
  diff -u -r1.35 -r1.36
  --- PerlRun.pm	2001/01/29 21:51:30	1.35
  +++ PerlRun.pm	2001/01/29 22:13:40	1.36
  @@ -341,7 +341,7 @@
               no warnings;
               local $^W = 0;
               if (my $p = prototype $fullname) {
  -                eval "*{\$fullname} = sub ($p) {}";
  +                *{$fullname} = eval "sub ($p) {}";
               }
               else {
                   *{$fullname} = sub {};
  
  
  

Mime
View raw message