The "constant sub redefined" warning can't be disabled.

p4raw-id: //depot/perl@16706

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 2d34e0b..f746220 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1216,7 +1216,7 @@ See L<perlsub/"Constant Functions"> and L<constant>.
 
 =item Constant subroutine %s redefined
 
-(S|W redefine) You redefined a subroutine which had previously been
+(S) You redefined a subroutine which had previously been
 eligible for inlining.  See L<perlsub/"Constant Functions"> for
 commentary and workarounds.