Switch to qw<>

diff --git a/Makefile.PL b/Makefile.PL
index 0f5fccb05ddce8e386951266605a27920b5f5a61..4a53d7a949449ec1e8de29cda9e926b1bef2f88d 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -61,7 +61,7 @@ package MY;
 
 sub postamble {
  my $cv = join ' -coverage ', 'cover',
-                            qw/statement branch condition path subroutine time/;
+                            qw<statement branch condition path subroutine time>;
  <<POSTAMBLE;
 cover test_cover:
        $cv -test

diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm
index 287e7f80a127cc5358294c9bf1213188f151b4d3..7fb55b88d8c0fe32fe0dc84271ca9faf7722f0ea 100644 (file)
--- a/lib/subs/auto.pm
+++ b/lib/subs/auto.pm
@@ -67,7 +67,7 @@ use B;
 
 use B::Keywords;
 
-use Variable::Magic 0.31 qw/wizard cast dispell getdata/;
+use Variable::Magic 0.31 qw<wizard cast dispell getdata>;
 
 BEGIN {
  unless (Variable::Magic::VMG_UVAR) {
@@ -84,7 +84,7 @@ my %core;
  @B::Keywords::Functions,
  'DATA',
 } = ();
-delete @core{qw/my local/};
+delete @core{qw<my local>};
 
 BEGIN {
  *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ($] < 5.011002 ? 0 : 1) . '}'

diff --git a/samples/subs.pl b/samples/subs.pl
index 8d25208fc1290015c9858a85e682429a163e7273..4d81e9bdf29412b07a7524ab32683bc942d2e56a 100644 (file)
--- a/samples/subs.pl
+++ b/samples/subs.pl
@@ -3,10 +3,10 @@
 use strict;
 use warnings;
 
-use lib qw{blib/lib};
+use lib qw<blib/lib>;
 
 my $x = 7;
-my @a = qw/ba na na/;
+my @a = qw<ba na na>;
 
 {
  use subs::auto;

diff --git a/t/05-args.t b/t/05-args.t
index d449b7326788daed0687d16c22ca31b6507d7042..5a1a3dcaf23433cbdf14deb9b9da0509a7e20c6a 100644 (file)
--- a/t/05-args.t
+++ b/t/05-args.t
@@ -7,7 +7,7 @@ use Test::More tests => 8;
 
 my $invalid = qr/Invalid\s+package\s+name/;
 
-eval "use subs::auto qw/a b c/";
+eval "use subs::auto qw<a b c>";
 like($@, qr|Optional\s+arguments\s+must\s+be\s+passed\s+as\s+keys?\s*/\s*values?\s+pairs?|, 'no even number of args');
 
 eval "use subs::auto in => \\( q{foo::bar} )";

diff --git a/t/10-base.t b/t/10-base.t
index 249fe0f92d23b49390faced11dbf811c09400564..c96ba8cd985e9e69eef237ecb96c6b0dbaea1def 100644 (file)
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -284,7 +284,7 @@ _got_undefined('blech', 1, eval => 1);
 # ... How's my symbol table, Doug Hastings? ...................................
 
 {
- no strict qw/refs subs/;
+ no strict qw<refs subs>;
  is(*{::feh}{CODE}, undef, 'feh isn\'t defined');
  is(*{::feh}{CODE}, undef, 'feh isn\'t defined, really');
  isnt(*{::yay}{CODE}, undef, 'yay is defined');
@@ -340,7 +340,7 @@ close DONGS;
 seek DATA, 0, 1;
 my @fruits = <DATA>;
 chomp @fruits;
-is_deeply(\@fruits, [ qw/apple pear banana/ ], 'DATA filehandle ok');
+is_deeply(\@fruits, [ qw<apple pear banana> ], 'DATA filehandle ok');
 
 # ... Retest foo (declared and defined inside) ................................
 

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

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;

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index a63d2f419f6f0ce77918a0290be658147db69fa2..ef87f5bf21d34370e3a0b7620bae26576258c3dc 100644 (file)
--- a/t/92-pod-coverage.t
+++ b/t/92-pod-coverage.t
@@ -15,4 +15,4 @@ my $min_pc = 0.18;
 eval "use Pod::Coverage $min_pc";
 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
 
-all_pod_coverage_ok({ also_private => [ qw/unimport/ ] });
+all_pod_coverage_ok({ also_private => [ qw<unimport> ] });