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 0404a6b..4ffa2d9 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 b360431..97c874c 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 5984ef0..c594462 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 dc2870c..e83819d 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 63869b8..4263ea5 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 3bbed52..8531afe 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 f666da5..371a961 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;