Switch to qw<>

diff --git a/Makefile.PL b/Makefile.PL
index c8440d1f223d1b95d74c9a5e97c525a09d409167..1e126e8d6be53f49abda979c671faec0d829a8a1 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -8,7 +8,7 @@ BEGIN {
  local $@;
  eval { require Config };
  die 'OS unsupported' if $@;
  local $@;
  eval { require Config };
  die 'OS unsupported' if $@;

- Config->import(qw/%Config/);
+ Config->import(qw<%Config>);

 }
 
 my @DEFINES;
 }
 
 my @DEFINES;


@@ -17,15 +17,15 @@ my %macro;
 my $is_gcc_34 = 0;
 print "Checking if this is gcc 3.4 on Windows trying to link against an import library... ";
 if ($^O eq 'MSWin32' and not grep /^LD[A-Z]*=/, @ARGV) {
 my $is_gcc_34 = 0;
 print "Checking if this is gcc 3.4 on Windows trying to link against an import library... ";
 if ($^O eq 'MSWin32' and not grep /^LD[A-Z]*=/, @ARGV) {

- my ($libperl, $gccversion) = map $_ || '', @Config{qw/libperl gccversion/};
+ my ($libperl, $gccversion) = map $_ || '', @Config{qw<libperl gccversion>};

  if ($gccversion =~ /^3\.4\.[0-9]+/ and $libperl =~ s/\.lib$//) {
   $is_gcc_34 = 1;
  if ($gccversion =~ /^3\.4\.[0-9]+/ and $libperl =~ s/\.lib$//) {
   $is_gcc_34 = 1;

-  my ($lddlflags, $ldflags) = @Config{qw/lddlflags ldflags/};
+  my ($lddlflags, $ldflags) = @Config{qw<lddlflags ldflags>};

   $_ ||= '', s/-L(?:".*?"|\S+)//g for $lddlflags, $ldflags;
   $libperl = "-l$libperl";
   my $libdirs = join ' ',
                  map { s/(?<!\\)((?:\\\\)*")/\\$1/g; qq[-L"$_"] }
   $_ ||= '', s/-L(?:".*?"|\S+)//g for $lddlflags, $ldflags;
   $libperl = "-l$libperl";
   my $libdirs = join ' ',
                  map { s/(?<!\\)((?:\\\\)*")/\\$1/g; qq[-L"$_"] }

-                  @Config{qw/bin sitebin/};
+                  @Config{qw<bin sitebin>};

   $macro{LDDLFLAGS}    = "$lddlflags $libdirs $libperl";
   $macro{LDFLAGS}      = "$ldflags $libdirs $libperl";
   $macro{PERL_ARCHIVE} = '',
   $macro{LDDLFLAGS}    = "$lddlflags $libdirs $libperl";
   $macro{LDFLAGS}      = "$ldflags $libdirs $libperl";
   $macro{PERL_ARCHIVE} = '',

diff --git a/lib/Lexical/Types.pm b/lib/Lexical/Types.pm
index 3593a2be5cd6eee815390cbf65edea6cc8612362..4bffba8c828a54b78097a238a61ae90e2ecc1b77 100644 (file)
--- a/lib/Lexical/Types.pm
+++ b/lib/Lexical/Types.pm
@@ -221,7 +221,7 @@ If you prefer to use constants rather than creating empty packages, you can repl
 
     sub import {
      my $pkg = caller;
 
     sub import {
      my $pkg = caller;

-     for (qw/Str Int/) {
+     for (qw<Str Int>) {

       my $type = __PACKAGE__ . '::' . $_;
       no strict 'refs';
       no warnings 'redefine';
       my $type = __PACKAGE__ . '::' . $_;
       no strict 'refs';
       no warnings 'redefine';

diff --git a/t/11-args.t b/t/11-args.t
index 26aa4b6335d89f1f2bdba3752e508432adc3fa01..695d6c9ad04e895af97886b55a72a35c3546245f 100644 (file)
--- a/t/11-args.t
+++ b/t/11-args.t
@@ -88,7 +88,7 @@ use Test::More tests => 14 + 6;
  my $expect = qr/^Invalid ARRAY reference/;
  local $@;
  eval q[
  my $expect = qr/^Invalid ARRAY reference/;
  local $@;
  eval q[

-  use Lexical::Types as => [ qw/a b c/ ];
+  use Lexical::Types as => [ qw<a b c> ];

   my LTT $x;
  ];
  like $@, $expect, 'as => array';
   my LTT $x;
  ];
  like $@, $expect, 'as => array';


@@ -99,7 +99,7 @@ use Test::More tests => 14 + 6;
  diag 'This will throw two warnings' if $] >= 5.008008 and $] < 5.009;
  local $@;
  eval q[
  diag 'This will throw two warnings' if $] >= 5.008008 and $] < 5.009;
  local $@;
  eval q[

-  use Lexical::Types as => sub { qw/a b c/ };
+  use Lexical::Types as => sub { qw<a b c> };

   my LTT $x;
  ];
  like $@, $expect, 'as => code, returning three scalars';
   my LTT $x;
  ];
  like $@, $expect, 'as => code, returning three scalars';

diff --git a/t/13-padsv.t b/t/13-padsv.t
index ae3cbff3ecd485290b54d3504347376803dac7a5..0509260d821f246df2c8770abec9b0b86e37851d 100644 (file)
--- a/t/13-padsv.t
+++ b/t/13-padsv.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

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

 
 use Test::More tests => 4;
 
 
 use Test::More tests => 4;
 

diff --git a/t/16-scope.t b/t/16-scope.t
index 6d78ec1a3615529457de06dc92f0a6664d0e7d34..08fabbb329654a60be4ace30baca5f23c458c4f4 100644 (file)
--- a/t/16-scope.t
+++ b/t/16-scope.t
@@ -26,7 +26,7 @@ use lib 't/lib';
  sub cb3 { push @decls, $_[0]; @_ }
  {
   no strict 'refs';
  sub cb3 { push @decls, $_[0]; @_ }
  {
   no strict 'refs';

-  *{"Int3$_\::TYPEDSCALAR"} = \&Int::TYPEDSCALAR for qw/X Y Z/;
+  *{"Int3$_\::TYPEDSCALAR"} = \&Int::TYPEDSCALAR for qw<X Y Z>;

  }
  local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
  eval <<' TESTREQUIRED3';
  }
  local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
  eval <<' TESTREQUIRED3';


@@ -42,6 +42,6 @@ use lib 't/lib';
  @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if $] <= 5.008003;
  is         $@,     '',  'third require test didn\'t croak prematurely';
  is_deeply \@w,     [ ], 'third require test didn\'t warn';
  @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if $] <= 5.008003;
  is         $@,     '',  'third require test didn\'t croak prematurely';
  is_deeply \@w,     [ ], 'third require test didn\'t warn';

- is_deeply \@decls, [ map "Int3$_", qw/X Z/ ],
+ is_deeply \@decls, [ map "Int3$_", qw<X Z> ],

                          'third require test propagated in the right scopes';
 }
                          'third require test propagated in the right scopes';
 }

diff --git a/t/22-magic.t b/t/22-magic.t
index 350cbe17d4fb5dbb8607c81c051b74633ebc617c..d0cae1b8e0f773fac1b0b4ecf3982e72c17c417d 100644 (file)
--- a/t/22-magic.t
+++ b/t/22-magic.t
@@ -13,7 +13,7 @@ BEGIN {
 {
  package Lexical::Types::Test::Str;
 
 {
  package Lexical::Types::Test::Str;
 

- use Variable::Magic qw/wizard cast/;
+ use Variable::Magic qw<wizard cast>;

 
  our $wiz;
  BEGIN {
 
  our $wiz;
  BEGIN {


@@ -40,7 +40,8 @@ sub check (&$$;$) {
  my $want = wantarray;
  my @ret;
  {
  my $want = wantarray;
  my @ret;
  {

-  local @{$got}{qw/get set/}; delete @{$got}{qw/get set/};
+  local @{$got}{qw<get set>};
+  delete @{$got}{qw<get set>};

   if ($want) {
    @ret = eval { $test->() };
   } elsif (defined $want) {
   if ($want) {
    @ret = eval { $test->() };
   } elsif (defined $want) {

diff --git a/t/23-magic-uvar.t b/t/23-magic-uvar.t
index 9d3013b59625bfb9a1d5f55737f73bc7298c0a7d..ce80f2ec95ccb0cf2e3ac8827079bb71a41dd05a 100644 (file)
--- a/t/23-magic-uvar.t
+++ b/t/23-magic-uvar.t
@@ -13,7 +13,7 @@ BEGIN {
 {
  package Lexical::Types::Test::Ref;
 
 {
  package Lexical::Types::Test::Ref;
 

- use Variable::Magic qw/wizard cast/;
+ use Variable::Magic qw<wizard cast>;

 
  our $wiz;
  BEGIN {
 
  our $wiz;
  BEGIN {


@@ -45,7 +45,8 @@ sub check (&$$;$) {
  my $want = wantarray;
  my @ret;
  {
  my $want = wantarray;
  my @ret;
  {

-  local @{$got}{qw/fetch store/}; delete @{$got}{qw/fetch store/};
+  local @{$got}{qw<fetch store>};
+  delete @{$got}{qw<fetch store>};

   if ($want) {
    @ret = eval { $test->() };
   } elsif (defined $want) {
   if ($want) {
    @ret = eval { $test->() };
   } elsif (defined $want) {

diff --git a/t/30-threads.t b/t/30-threads.t
index 5122dd7ec73f6d9dd44f606ccf26211ea5083c70..d48fa023032c4b5607433e873c464a307d0e4961 100644 (file)
--- a/t/30-threads.t
+++ b/t/30-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_LEXICAL_TYPES_TEST_THREADS} ? 1 : !1;
 
 BEGIN {
  my $force = $ENV{PERL_LEXICAL_TYPES_TEST_THREADS} ? 1 : !1;

diff --git a/t/31-threads-teardown.t b/t/31-threads-teardown.t
index 306618252cac81e87af46c854624455308a682fc..cd93a505d342512c105a952b0e93904a7e1f8442 100644 (file)
--- a/t/31-threads-teardown.t
+++ b/t/31-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_LEXICAL_TYPES_TEST_THREADS} ? 1 : !1;
 
 BEGIN {
  my $force = $ENV{PERL_LEXICAL_TYPES_TEST_THREADS} ? 1 : !1;


@@ -55,11 +55,11 @@ SKIP:
   }
   use threads;
   $code = threads->create(sub {
   }
   use threads;
   $code = threads->create(sub {

-   $code = @expected = qw/IntX/;
+   $code = @expected = qw<IntX>;

    eval q{use Lexical::Types as => \&cb; my IntX $x;}; die if $@;
    return $code;
   })->join;
    eval q{use Lexical::Types as => \&cb; my IntX $x;}; die if $@;
    return $code;
   })->join;

-  $code += @expected = qw/IntZ/;
+  $code += @expected = qw<IntZ>;

   eval q{my IntY $y;}; die if $@;
   eval q{use Lexical::Types as => \&cb; my IntZ $z;}; die if $@;
   $code += 256 if $code < 0;
   eval q{my IntY $y;}; die if $@;
   eval q{use Lexical::Types as => \&cb; my IntZ $z;}; die if $@;
   $code += 256 if $code < 0;