Switch to qw<>

[perl/modules/subs-auto.git] / t / 12-proto.t

diff --git a/t/12-proto.t b/t/12-proto.t
index 10c59bbc8c56af672f86d1a1c1a4b173a1ce0994..651fb9f411c0dffb38417f3a355ea607aed67367 100644 (file)
--- 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');