From 4f9457819ee16b3f645ab5dab5ddc5ddbc89ebcf Mon Sep 17 00:00:00 2001
From: Robin Houston <robin@cpan.org>
Date: Thu, 26 Apr 2001 17:09:35 +0100
Subject: [PATCH] disable correct warning Message-ID:
 <20010426160934.A27140@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@9858
---
 t/comp/proto.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.7.4