cvs commit: modperl/lib/Apache PerlRun.pm

[dougm]

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 {};