Switch to qw<>

diff --git a/samples/indirect.pl b/samples/indirect.pl
index 0404a6bfbf3e0f57d9570077df279bfa2a13f8bc..4ffa2d984886c216dba82e4d0fa2275dc9931f2a 100755 (executable)
--- a/samples/indirect.pl
+++ b/samples/indirect.pl
@@ -3,7 +3,7 @@
 #use strict;
 #use warnings;
 
 #use strict;
 #use warnings;
 

-use lib qw{blib/lib blib/arch};
+use lib qw<blib/lib blib/arch>;

 
 sub Hlagh::new { my $class = shift; bless { }, ref($class) || $class ; }
 
 
 sub Hlagh::new { my $class = shift; bless { }, ref($class) || $class ; }
 

diff --git a/t/20-good.t b/t/20-good.t
index b3604314816c7afaea73228b56053922d7356e56..97c874c7500c393400df9691eac8153dcc65d8bb 100644 (file)
--- a/t/20-good.t
+++ b/t/20-good.t
@@ -155,7 +155,7 @@ $obj = $pkg    ->   ($cb)   ();
 ####
 $obj = $pkg->$cb( $obj  );
 ####
 ####
 $obj = $pkg->$cb( $obj  );
 ####

-$obj = $pkg->$cb(qw/foo bar baz/);
+$obj = $pkg->$cb(qw<foo bar baz>);

 ####
 $obj = $pkg->$meth;
 ####
 ####
 $obj = $pkg->$meth;
 ####

diff --git a/t/21-bad.t b/t/21-bad.t
index 5984ef03ba031984995b00508c9d464162b7ba57..c5944622871bd5cec19b0916779725f78d2e9cdf 100644 (file)
--- a/t/21-bad.t
+++ b/t/21-bad.t
@@ -219,7 +219,7 @@ $obj = new $x qr{foo\s+bar}, 1 .. 1;
 ----
 [ 'new', '$x' ]
 ####
 ----
 [ 'new', '$x' ]
 ####

-$obj = new $x(qw/bar baz/);
+$obj = new $x(qw<bar baz>);

 ----
 [ 'new', '$x' ]
 ####
 ----
 [ 'new', '$x' ]
 ####

diff --git a/t/30-scope.t b/t/30-scope.t
index dc2870ca5c9d2fdf8bd981ddd14248ca6f1716f8..e83819de0b6c6b8ab47a89e179e226cf0ae99320 100644 (file)
--- a/t/30-scope.t
+++ b/t/30-scope.t
@@ -137,9 +137,9 @@ sub expect {
            "pragma leak when reusing callback test doesn't croak prematurely";
  is_deeply \@w,         [ ],
            "pragma leak when reusing callback test doesn't warn";
            "pragma leak when reusing callback test doesn't croak prematurely";
  is_deeply \@w,         [ ],
            "pragma leak when reusing callback test doesn't warn";

- is_deeply \@err,       [ map "indirect::TestRequired3$_", qw/X Z/ ],
+ is_deeply \@err,       [ map "indirect::TestRequired3$_", qw<X Z> ],

            "pragma leak when reusing callback test caught the right errors";
            "pragma leak when reusing callback test caught the right errors";

- is_deeply \@main::new, [ map "indirect::TestRequired3$_", qw/X Y Z/ ],
+ is_deeply \@main::new, [ map "indirect::TestRequired3$_", qw<X Y Z> ],

            "pragma leak when reusing callback test ran the three constructors";
 }
 
            "pragma leak when reusing callback test ran the three constructors";
 }
 

diff --git a/t/40-threads.t b/t/40-threads.t
index 63869b816e5c644cfd4117e152a306b72755df1c..4263ea59f950e1cc87476b111af3b36629000b3a 100644 (file)
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -9,7 +9,7 @@ sub skipall {
  Test::More::plan(skip_all => $msg);
 }
 
  Test::More::plan(skip_all => $msg);
 }
 

-use Config qw/%Config/;
+use Config qw<%Config>;

 
 BEGIN {
  my $force = $ENV{PERL_INDIRECT_TEST_THREADS} ? 1 : !1;
 
 BEGIN {
  my $force = $ENV{PERL_INDIRECT_TEST_THREADS} ? 1 : !1;

diff --git a/t/41-threads-teardown.t b/t/41-threads-teardown.t
index 3bbed52c43c83a8558b1057bf4520fddc042b0f3..8531afe1fe8d36a369435d828f3b9e762155b456 100644 (file)
--- a/t/41-threads-teardown.t
+++ b/t/41-threads-teardown.t
@@ -9,7 +9,7 @@ sub skipall {
  Test::More::plan(skip_all => $msg);
 }
 
  Test::More::plan(skip_all => $msg);
 }
 

-use Config qw/%Config/;
+use Config qw<%Config>;

 
 BEGIN {
  my $force = $ENV{PERL_INDIRECT_TEST_THREADS} ? 1 : !1;
 
 BEGIN {
  my $force = $ENV{PERL_INDIRECT_TEST_THREADS} ? 1 : !1;


@@ -49,7 +49,7 @@ SKIP:
   my ($code, @expected);
   BEGIN {
    $code = 2;
   my ($code, @expected);
   BEGIN {
    $code = 2;

-   @expected = qw/X Z/;
+   @expected = qw<X Z>;

   }
   sub cb { --$code if $_[0] eq shift(@expected) || q{DUMMY} }
   use threads;
   }
   sub cb { --$code if $_[0] eq shift(@expected) || q{DUMMY} }
   use threads;

diff --git a/t/lib/indirect/Test0/Oooooo/Pppppppp.pm b/t/lib/indirect/Test0/Oooooo/Pppppppp.pm
index f666da54be434f814d7a39554a7249a3be03688a..371a961d319373b4e76b2d6b69492cbd62ef8f75 100644 (file)
--- a/t/lib/indirect/Test0/Oooooo/Pppppppp.pm
+++ b/t/lib/indirect/Test0/Oooooo/Pppppppp.pm
@@ -9,7 +9,7 @@ use indirect::Test0::Fffff::Vvvvvvv
        y => sub { };
 
 use indirect::Test0::Fffff::Vvvvvvv
        y => sub { };
 
 use indirect::Test0::Fffff::Vvvvvvv

-       t => [xxxx=>qw(xxxxxx xxxxxxx)],
+       t => [ xxxx => qw<xxxxxx xxxxxxx> ],

        x => sub { $_[0]->method };
 
 1;
        x => sub { $_[0]->method };
 
 1;