cvs commit: modperl-2.0/Apache-Test/lib/Apache TestMM.pm

[dougm]

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};
       }
   }