Switch to qw<>

[perl/modules/subs-auto.git] / t / 13-meth.t

diff --git a/t/13-meth.t b/t/13-meth.t
index db8ee146b6e4805d36b2d886adeb54c23d1690dc..e695f0fb4da4f59f7afc472acf44d31e85bc8cad 100644 (file)
--- a/t/13-meth.t
+++ b/t/13-meth.t
@@ -10,7 +10,7 @@ my %res;
 eval q[
  package subs::auto::Test;
  use subs::auto;
- $res{"${_}2"} = __PACKAGE__->can($_) ? 1 : 0 for qw/foo bar baz qux/;
+ $res{"${_}2"} = __PACKAGE__->can($_) ? 1 : 0 for qw<foo bar baz qux>;
  return;
  BEGIN { $res{foo} = __PACKAGE__->can('foo') ? 1 : 0; }
  sub bar;