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

[stas]

stas        2002/08/14 05:52:37

  Modified:    ModPerl-Registry/lib/ModPerl RegistryCooker.pm
  Log:
  sync with 1.0 registry: check that the prototype is defined in
  flush_namespace
  
  Revision  Changes    Path
  1.11      +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.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- RegistryCooker.pm 30 Jul 2002 18:27:16 -0000      1.10
  +++ RegistryCooker.pm 14 Aug 2002 12:52:37 -0000      1.11
  @@ -479,7 +479,7 @@
           if (defined &$fullname) {
               no warnings;
               local $^W = 0;
  -            if (my $p = prototype $fullname) {
  +            if (defined(my $p = prototype $fullname)) {
                   *{$fullname} = eval "sub ($p) {}";
               }
               else {