diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-26 17:09:35 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-26 18:17:42 +0000 |
| commit | 4f9457819ee16b3f645ab5dab5ddc5ddbc89ebcf (patch) | |
| tree | edc5e8ed20ed3a814f9c69f93662207c341988f0 | |
| parent | 65191a1eeddc40c842b08b03bcc6e98666def342 (diff) | |
| download | perl-4f9457819ee16b3f645ab5dab5ddc5ddbc89ebcf.tar.gz | |
disable correct warning
Message-ID: <20010426160934.A27140@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@9858
| -rwxr-xr-x | t/comp/proto.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index d0e0acbc0b..ae0f9abfcb 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; |