cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm

[stas]

stas        2002/08/15 23:59:52

  Modified:    ModPerl-Registry/lib/ModPerl RegistryCooker.pm
  Log:
  a nicer way to call a code ref
  
  Revision  Changes    Path
  1.20      +1 -1      modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
  
  Index: RegistryCooker.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -r1.19 -r1.20
  --- RegistryCooker.pm 16 Aug 2002 06:59:02 -0000      1.19
  +++ RegistryCooker.pm 16 Aug 2002 06:59:51 -0000      1.20
  @@ -176,7 +176,7 @@
   
       { # run the code and preserve warnings setup when it's done
           no warnings;
  -        eval { $rc = &{$cv}($r, @_) };
  +        eval { $rc = $cv->($r, @_) };
           $self->[STATUS] = $rc;
           ModPerl::Global::special_list_call(END => $package);
       }