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

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');