From: Robin Houston <robin@cpan.org>
Date: Thu, 26 Apr 2001 16:09:35 +0000 (+0100)
Subject: disable correct warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f9457819ee16b3f645ab5dab5ddc5ddbc89ebcf;p=p5sagit%2Fp5-mst-13.2.git

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 d0e0acb..ae0f9ab 100755
--- 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;