You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2002/08/14 14:52:37 UTC
cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm
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 {