disable correct warning
Robin Houston [Thu, 26 Apr 2001 16:09:35 +0000 (17:09 +0100)]
Message-ID: <20010426160934.A27140@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@9858

t/comp/proto.t

index d0e0acb..ae0f9ab 100755 (executable)
@@ -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;