Switch to qw<>

diff --git a/Makefile.PL b/Makefile.PL
index 3dbfaa29dffcb3fb0593fd8c480460f1b5c123a2..7b55ee5844719860b1074770c01a7b17cd89afe6 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -7,7 +7,7 @@ use ExtUtils::MakeMaker;
 BEGIN {
  eval { require Config };
  die 'OS unsupported' if $@;
- Config->import(qw/%Config/);
+ Config->import(qw<%Config>);
  eval { require File::Spec };
  die 'OS unsupported' if $@;
 }
@@ -134,7 +134,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/Scalar/Vec/Util.pm b/lib/Scalar/Vec/Util.pm
index 1435972a64b3c2ab4beeb2de254dc932a2728ed0..4a97a67c3e3d2cf34a3e2c8e1f9a80bca0d84220 100644 (file)
--- a/lib/Scalar/Vec/Util.pm
+++ b/lib/Scalar/Vec/Util.pm
@@ -3,7 +3,7 @@ package Scalar::Vec::Util;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
+use Carp qw<croak>;
 
 =head1 NAME
 
@@ -33,7 +33,7 @@ BEGIN {
 
 =head1 SYNOPSIS
 
-    use Scalar::Vec::Util qw/vfill vcopy veq/;
+    use Scalar::Vec::Util qw<vfill vcopy veq>;
 
     my $s;
     vfill $s, 0, 100, 1; # Fill with 100 bits 1 starting at 0.
@@ -207,12 +207,12 @@ They are all exported by the tags C<':consts'> and C<':all'>.
 
 =cut
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
- 'funcs'  => [ qw/vfill vcopy vshift vrot veq/ ],
- 'consts' => [ qw/SVU_PP SVU_SIZE/ ]
+ 'funcs'  => [ qw<vfill vcopy vshift vrot veq> ],
+ 'consts' => [ qw<SVU_PP SVU_SIZE> ]
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];

diff --git a/samples/bench.pl b/samples/bench.pl
index a5712308a71000451946b4d4f35c48e4df10e703..c899ea11f4981060accfedd3d5f9af48d37d5d76 100755 (executable)
--- a/samples/bench.pl
+++ b/samples/bench.pl
@@ -3,10 +3,10 @@
 use strict;
 use warnings;
 
-use Benchmark qw/cmpthese/;
+use Benchmark qw<cmpthese>;
 
-use lib qw{blib/arch blib/lib};
-use Scalar::Vec::Util qw/vfill vcopy veq/;
+use lib qw<blib/arch blib/lib>;
+use Scalar::Vec::Util qw<vfill vcopy veq>;
 
 BEGIN {
  print 'We ';

diff --git a/t/02-pp.t b/t/02-pp.t
index dea9f2b4977d1e148ab636dcad684e189fe377ad..0e418421e36833d95602c5c03e86c4605a45ad59 100644 (file)
--- a/t/02-pp.t
+++ b/t/02-pp.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 use Test::More tests => 4;
 
@@ -17,10 +17,10 @@ BEGIN {
  };
 }
 
-use Scalar::Vec::Util qw/vfill vcopy veq SVU_PP/;
+use Scalar::Vec::Util qw<vfill vcopy veq SVU_PP>;
 
 is(SVU_PP, 1, 'using pure perl subroutines');
-for (qw/vfill vcopy veq/) {
+for (qw<vfill vcopy veq>) {
  no strict 'refs';
  is(*{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp');
 }

diff --git a/t/03-size.t b/t/03-size.t
index 8751911ed5c0f82e8617db33e7a8aedf36a63eed..d32e3d942e2a1528393f19aa44b2ad3723f62692 100644 (file)
--- a/t/03-size.t
+++ b/t/03-size.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
-use Scalar::Vec::Util qw/SVU_SIZE SVU_PP/;
+use Scalar::Vec::Util qw<SVU_SIZE SVU_PP>;
 
 if (SVU_PP) {
  plan tests => 1;

diff --git a/t/11-veq.t b/t/11-veq.t
index 31ba0a8f6780cc8a8148350db1bf91059673c135..00e90a92d348936333fb24b3cf4106d851e286c1 100644 (file)
--- a/t/11-veq.t
+++ b/t/11-veq.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More 'no_plan';
 
-use Scalar::Vec::Util qw/veq SVU_SIZE/;
+use Scalar::Vec::Util qw<veq SVU_SIZE>;
 
 for ([ 1, 'offset', -1 ], [ 3, 'offset', '-1' ], [ 4, 'length', -1 ]) {
  my @args  = ('1') x 5;

diff --git a/t/12-veq-long.t b/t/12-veq-long.t
index de11abdaa3d65bc93574726ecc6d52906f481b01..ea0c7a05c6186fb54d571e3fec479d4c05f3d539 100644 (file)
--- a/t/12-veq-long.t
+++ b/t/12-veq-long.t
@@ -4,9 +4,9 @@ use strict;
 use warnings;
 
 use Test::More tests => 1;
-use Config qw/%Config/;
+use Config qw<%Config>;
 
-use Scalar::Vec::Util qw/veq/;
+use Scalar::Vec::Util qw<veq>;
 
 my ($v1, $v2) = ('') x 2;
 my $n = ($Config{alignbytes} - 1) * 8;

diff --git a/t/21-vfill.t b/t/21-vfill.t
index 47026688f04636d7b9b1fed3a48acdd1e8bf7e95..84031743e370403f2a8b1e464128a1b17c7f8290 100644 (file)
--- a/t/21-vfill.t
+++ b/t/21-vfill.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More 'no_plan';
 
-use Scalar::Vec::Util qw/vfill SVU_SIZE/;
+use Scalar::Vec::Util qw<vfill SVU_SIZE>;
 
 for ([ 1, 'offset', -1 ], [ 2, 'length', '-1' ]) {
  my @args  = (~0) x 4;

diff --git a/t/22-vfill-long.t b/t/22-vfill-long.t
index b682dbea6028b4ff2c2c5e53d3002797f7868664..3325f2d51727046b21e39bece37ce708fad6bf29 100644 (file)
--- a/t/22-vfill-long.t
+++ b/t/22-vfill-long.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 34;
 
-use Scalar::Vec::Util qw/vfill/;
+use Scalar::Vec::Util qw<vfill>;
 
 my $n = 2 ** 16;
 

diff --git a/t/30-vcopy-pp.t b/t/30-vcopy-pp.t
index 73e6e1e57c4d4ac307a36f8d1000bcdb5a261b75..fda3803eb35f2e1f750ef95567c9eadf6126e616 100644 (file)
--- a/t/30-vcopy-pp.t
+++ b/t/30-vcopy-pp.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scalar::Vec::Util qw/SVU_SIZE/;
+use Scalar::Vec::Util qw<SVU_SIZE>;
 
 for ([ 1, 'offset', -1 ], [ 3, 'offset', '-1' ], [ 4, 'length', -1 ]) {
  my @args  = ('1') x 5;

diff --git a/t/31-vcopy-copy.t b/t/31-vcopy-copy.t
index ac4876c941e88787f19ab6acbac7364e504a8792..68b136bf4bc317946f16fd006d25cf9eb809c4eb 100644 (file)
--- a/t/31-vcopy-copy.t
+++ b/t/31-vcopy-copy.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scalar::Vec::Util qw/vcopy SVU_SIZE/;
+use Scalar::Vec::Util qw<vcopy SVU_SIZE>;
 
 for ([ 1, 'offset', -1 ], [ 3, 'offset', '-1' ], [ 4, 'length', -1 ]) {
  my @args  = (~0) x 5;

diff --git a/t/32-vcopy-move.t b/t/32-vcopy-move.t
index a77183985c7d98998f1a28b79c39dba02a0918b8..43776c0ba2b51d22e3d75171dee88a17041c99d1 100644 (file)
--- a/t/32-vcopy-move.t
+++ b/t/32-vcopy-move.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scalar::Vec::Util qw/vcopy SVU_SIZE/;
+use Scalar::Vec::Util qw<vcopy SVU_SIZE>;
 
 my $p = SVU_SIZE;
 $p = 8 if $p < 8;

diff --git a/t/33-vcopy-long.t b/t/33-vcopy-long.t
index 2da3ec5867295503f29b0235d1c3f45d6d1aa1b5..865055d1252b23577ea13220a4806923b616e501 100644 (file)
--- a/t/33-vcopy-long.t
+++ b/t/33-vcopy-long.t
@@ -4,9 +4,9 @@ use strict;
 use warnings;
 
 use Test::More tests => 34 + 2;
-use Config qw/%Config/;
+use Config qw<%Config>;
 
-use Scalar::Vec::Util qw/vcopy/;
+use Scalar::Vec::Util qw<vcopy>;
 
 my $n = 2 ** 16;
 

diff --git a/t/40-vshift.t b/t/40-vshift.t
index 635bba2842deed62203c1264256a9597a29f78ac..15d1decb7912af527e565e3a77343c96eba8397b 100644 (file)
--- a/t/40-vshift.t
+++ b/t/40-vshift.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scalar::Vec::Util qw/vshift SVU_SIZE/;
+use Scalar::Vec::Util qw<vshift SVU_SIZE>;
 
 for ([ 1, 'offset', -1 ], [ 2, 'length', '-1' ]) {
  my @args  = ('1') x 4;

diff --git a/t/50-vrot.t b/t/50-vrot.t
index 0da7f7bd722779870468b53b7446bc79fe9220ea..227ca5264e2c6024f774cd0d34e58cd20d1d5dc1 100644 (file)
--- a/t/50-vrot.t
+++ b/t/50-vrot.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scalar::Vec::Util qw/vrot vcopy SVU_SIZE/;
+use Scalar::Vec::Util qw<vrot vcopy SVU_SIZE>;
 
 for ([ 1, 'offset', -1 ], [ 2, 'length', '-1' ]) {
  my @args  = ('1') x 4;