dougm 02/04/07 15:47:31
Modified: . Changes
lib/ModPerl MM.pm
Log:
get rid of some "subroutine redefined" warnings in ModPerl::MM that
show up with newer bleedperls.
Revision Changes Path
1.5 +3 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Changes 7 Apr 2002 21:35:02 -0000 1.4
+++ Changes 7 Apr 2002 22:47:31 -0000 1.5
@@ -1,5 +1,8 @@
=item 1.99_02-dev
+get rid of some "subroutine redefined" warnings in ModPerl::MM that
+show up with newer bleedperls. [dougm]
+
a few fixes for Apache::compat [Dave Rolsky <[EMAIL PROTECTED]>]
=item 1.99_01 - April 6, 2002
1.17 +3 -1 modperl-2.0/lib/ModPerl/MM.pm
Index: MM.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/MM.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- MM.pm 6 Apr 2002 16:11:56 -0000 1.16
+++ MM.pm 7 Apr 2002 22:47:31 -0000 1.17
@@ -50,7 +50,9 @@
my $stash = \%{__PACKAGE__ . '::MY::'};
for my $sym (keys %$stash) {
next unless *{$stash->{$sym}}{CODE};
- *{"MY::$sym"} = *{$stash->{$sym}}{CODE};
+ my $name = "MY::$sym";
+ undef &$name if defined &$name;
+ *$name = *{$stash->{$sym}}{CODE};
}
}
