]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Switch to qw<>
authorVincent Pit <vince@profvince.com>
Mon, 3 Jan 2011 21:22:51 +0000 (22:22 +0100)
committerVincent Pit <vince@profvince.com>
Mon, 3 Jan 2011 21:22:51 +0000 (22:22 +0100)
samples/indirect.pl
t/20-good.t
t/21-bad.t
t/30-scope.t
t/40-threads.t
t/41-threads-teardown.t
t/lib/indirect/Test0/Oooooo/Pppppppp.pm

index 0404a6bfbf3e0f57d9570077df279bfa2a13f8bc..4ffa2d984886c216dba82e4d0fa2275dc9931f2a 100755 (executable)
@@ -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 ; }
 
index b3604314816c7afaea73228b56053922d7356e56..97c874c7500c393400df9691eac8153dcc65d8bb 100644 (file)
@@ -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;
 ####
index 5984ef03ba031984995b00508c9d464162b7ba57..c5944622871bd5cec19b0916779725f78d2e9cdf 100644 (file)
@@ -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' ]
 ####
index dc2870ca5c9d2fdf8bd981ddd14248ca6f1716f8..e83819de0b6c6b8ab47a89e179e226cf0ae99320 100644 (file)
@@ -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";
 }
 
index 63869b816e5c644cfd4117e152a306b72755df1c..4263ea59f950e1cc87476b111af3b36629000b3a 100644 (file)
@@ -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;
index 3bbed52c43c83a8558b1057bf4520fddc042b0f3..8531afe1fe8d36a369435d828f3b9e762155b456 100644 (file)
@@ -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;
index f666da54be434f814d7a39554a7249a3be03688a..371a961d319373b4e76b2d6b69492cbd62ef8f75 100644 (file)
@@ -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;