disable correct warning

Message-ID: <20010426160934.A27140@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@9858

diff --git a/t/comp/proto.t b/t/comp/proto.t
index d0e0acbc0b7d7512ca47448c3306e32093146ba6..ae0f9abfcba13a87747afc0d0d2d4ba7ddfd2ac6 100755 (executable)
--- a/t/comp/proto.t
+++ b/t/comp/proto.t
@@ -492,7 +492,7 @@ sub sreftest (\$$) {
 # string "parse error".
 #
 for my $p ( "", qw{ () ($) ($@) ($%) ($;$) (&) (&\@) (&@) (%) (\%) (\@) } ) {
-  no warnings 'redefine';
+  no warnings 'prototype';
   my $eval = "sub evaled_subroutine $p { &void *; }";
   eval $eval;
   print "# eval[$eval]\nnot " unless $@ && $@ =~ /(parse|syntax) error/i;