perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/lib/ModPerl MM.pm
Date Sun, 07 Apr 2002 22:47:31 GMT
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 <autarch@urth.org>]
   
   =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};
       }
   }
   
  
  
  

Mime
View raw message