X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=blobdiff_plain;f=t%2F12-proto.t;h=651fb9f411c0dffb38417f3a355ea607aed67367;hp=10c59bbc8c56af672f86d1a1c1a4b173a1ce0994;hb=bdab145ebb1c29e7ec08d6aff4b25f9282fa4d2f;hpb=54e8c3ca36072542b2689f3bca52db73dfa5f903

diff --git a/t/12-proto.t b/t/12-proto.t
index 10c59bb..651fb9f 100644
--- a/t/12-proto.t
+++ b/t/12-proto.t
@@ -10,7 +10,7 @@ sub foo ($) { $foo = $_[0] };
 
 my $baz;
 eval q|
- use warnings qw/FATAL redefine prototype/;
+ use warnings qw<FATAL redefine prototype>;
  sub main::baz ($) { $baz = $_[0] }
 |;
 like($@, qr/Prototype\s+mismatch\s*:\s+sub\s+main::baz\s*:\s+none\s+vs\s+\(\$\)/, 'baz appears as prototyped');