You are viewing a plain text version of this content. The canonical link for it is here.

Posted to test-commits@perl.apache.org by go...@apache.org on 2014/11/11 20:00:41 UTC

svn commit: r1638261 - /perl/Apache-Test/trunk/Makefile.PL

Author: gozer
Date: Tue Nov 11 19:00:40 2014
New Revision: 1638261

URL: http://svn.apache.org/r1638261
Log:
Silence redefintion warnings of MY::* subroutines

Modified:
    perl/Apache-Test/trunk/Makefile.PL

Modified: perl/Apache-Test/trunk/Makefile.PL
URL: http://svn.apache.org/viewvc/perl/Apache-Test/trunk/Makefile.PL?rev=1638261&r1=1638260&r2=1638261&view=diff
==============================================================================
--- perl/Apache-Test/trunk/Makefile.PL (original)
+++ perl/Apache-Test/trunk/Makefile.PL Tue Nov 11 19:00:40 2014
@@ -146,6 +146,12 @@ sub set_version {
     close $fh;
 }
 
+sub add_dep {
+    my($string, $targ, $add) = @_;
+    $$string =~ s/($targ\s+::)/$1 $add/;
+}
+
+no warnings 'redefine';
 sub MY::postamble {
     my $self = shift;
 
@@ -160,10 +166,7 @@ EOF
     return $string;
 }
 
-sub add_dep {
-    my($string, $targ, $add) = @_;
-    $$string =~ s/($targ\s+::)/$1 $add/;
-}
+
 
 sub MY::test {
     my $self = shift;