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/Apache-Test/lib/Apache TestMM.pm
Date Fri, 11 May 2001 03:04:55 GMT
dougm       01/05/10 20:04:54

  Modified:    Apache-Test/lib/Apache TestMM.pm
  Log:
  fix typo, MM => MY; and dont redefine the method
  
  Revision  Changes    Path
  1.4       +4 -1      modperl-2.0/Apache-Test/lib/Apache/TestMM.pm
  
  Index: TestMM.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestMM.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- TestMM.pm	2001/04/10 16:45:39	1.3
  +++ TestMM.pm	2001/05/11 03:04:51	1.4
  @@ -13,7 +13,10 @@
               die "unknown Apache::TestMM section: $section";
           }
           no strict 'refs';
  -        *{"MM::$section"} = \&{$section};
  +        my $sub = "MY::$section";
  +        #e.g. modperl-2.0/Makefile.PL pulls in Apache-Test/Makefile.PL
  +        next if defined &$sub;
  +        *$sub = \&{$section};
       }
   }
   
  
  
  

Mime
View raw message