From: Vincent Pit <vince@profvince.com>
Date: Mon, 3 Jan 2011 21:22:51 +0000 (+0100)
Subject: Switch to qw<>
X-Git-Tag: rt64521~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f23fcd5b540fd0b7a075ba6c71d7e6d3245a7dd5;p=perl%2Fmodules%2Findirect.git

Switch to qw<>
---

diff --git a/samples/indirect.pl b/samples/indirect.pl
index 0404a6b..4ffa2d9 100755
--- a/samples/indirect.pl
+++ b/samples/indirect.pl
@@ -3,7 +3,7 @@
 #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 ; }
 
diff --git a/t/20-good.t b/t/20-good.t
index b360431..97c874c 100644
--- a/t/20-good.t
+++ b/t/20-good.t
@@ -155,7 +155,7 @@ $obj = $pkg    ->   ($cb)   ();
 ####
 $obj = $pkg->$cb( $obj  );
 ####
-$obj = $pkg->$cb(qw/foo bar baz/);
+$obj = $pkg->$cb(qw<foo bar baz>);
 ####
 $obj = $pkg->$meth;
 ####
diff --git a/t/21-bad.t b/t/21-bad.t
index 5984ef0..c594462 100644
--- 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' ]
 ####
-$obj = new $x(qw/bar baz/);
+$obj = new $x(qw<bar baz>);
 ----
 [ 'new', '$x' ]
 ####
diff --git a/t/30-scope.t b/t/30-scope.t
index dc2870c..e83819d 100644
--- 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";
- 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";
- 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";
 }
 
diff --git a/t/40-threads.t b/t/40-threads.t
index 63869b8..4263ea5 100644
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -9,7 +9,7 @@ sub skipall {
  Test::More::plan(skip_all => $msg);
 }
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 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 3bbed52..8531afe 100644
--- a/t/41-threads-teardown.t
+++ b/t/41-threads-teardown.t
@@ -9,7 +9,7 @@ sub skipall {
  Test::More::plan(skip_all => $msg);
 }
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 BEGIN {
  my $force = $ENV{PERL_INDIRECT_TEST_THREADS} ? 1 : !1;
@@ -49,7 +49,7 @@ SKIP:
   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;
diff --git a/t/lib/indirect/Test0/Oooooo/Pppppppp.pm b/t/lib/indirect/Test0/Oooooo/Pppppppp.pm
index f666da5..371a961 100644
--- 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
-	t => [xxxx=>qw(xxxxxx xxxxxxx)],
+	t => [ xxxx => qw<xxxxxx xxxxxxx> ],
 	x => sub { $_[0]->method };
 
 1;