]> git.vpit.fr Git - perl/modules/autovivification.git/commitdiff
Switch to qw<>
authorVincent Pit <vince@profvince.com>
Mon, 3 Jan 2011 20:39:55 +0000 (21:39 +0100)
committerVincent Pit <vince@profvince.com>
Mon, 3 Jan 2011 20:39:55 +0000 (21:39 +0100)
Makefile.PL
lib/autovivification.pm
samples/bench.pl
samples/hash2array.pl
t/24-hash-numerous.t
t/40-scope.t
t/42-deparse.t
t/50-threads.t
t/51-threads-teardown.t
t/lib/autovivification/TestRequired4/a0.pm
t/lib/autovivification/TestRequired5/a0.pm

index 724b7a15711f693ce20075c74e7d3fd4bb793dc8..1c5c428370cef5598b9dd3158304139b31be1bae 100644 (file)
@@ -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} = '',
index 3d5ab411f7c509773bc8d86da7e02197075ace33..71a566f92868f334bb99c399bf4339178e6590ec 100644 (file)
@@ -132,7 +132,7 @@ Throws an exception when an autovivification is avoided.
 
 Each call to C<unimport> adds the specified features to the ones already in use in the current lexical scope.
 
 
 Each call to C<unimport> adds the specified features to the ones already in use in the current lexical scope.
 
-When C<@opts> is empty, it defaults to C<qw/fetch exists delete/>.
+When C<@opts> is empty, it defaults to C<< qw<fetch exists delete> >>.
 
 =cut
 
 
 =cut
 
@@ -148,7 +148,7 @@ my %bits = (
 sub unimport {
  shift;
  my $hint = _detag($^H{+(__PACKAGE__)}) || 0;
 sub unimport {
  shift;
  my $hint = _detag($^H{+(__PACKAGE__)}) || 0;
- @_ = qw/fetch exists delete/ unless @_;
+ @_ = qw<fetch exists delete> unless @_;
  $hint |= $bits{$_} for grep exists $bits{$_}, @_;
  $^H |= 0x00020000;
  $^H{+(__PACKAGE__)} = _tag($hint);
  $hint |= $bits{$_} for grep exists $bits{$_}, @_;
  $^H |= 0x00020000;
  $^H{+(__PACKAGE__)} = _tag($hint);
index 28aa263dad40cba53e671b3aa8fae88346b4a87e..2e5f03801c37c0d979aa39f0bec87684c424aa1a 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
-use Benchmark qw/:hireswallclock cmpthese/;
+use Benchmark qw<:hireswallclock cmpthese>;
 
 use blib;
 
 
 use blib;
 
index 3cf38fc25a1a920240144c148d096ae769f9aaa2..d58d205dcfced2b9583618b66413d083c488bb4a 100644 (file)
@@ -3,8 +3,8 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
-use Fatal qw/open close/;
-use Text::Balanced qw/extract_bracketed/;
+use Fatal qw<open close>;
+use Text::Balanced qw<extract_bracketed>;
 
 open my $hash_t,       '<', 't/20-hash.t';
 open my $array_t,      '>', 't/30-array.t';
 
 open my $hash_t,       '<', 't/20-hash.t';
 open my $array_t,      '>', 't/30-array.t';
index 6d489a85430fb77a66cff605d4184400a617a163..4c559f36ff063e63b9a54ba5304abdbaf3ebe4a1 100644 (file)
@@ -48,7 +48,7 @@ my $n = 100;
  {
   my @r;
   no autovivification;
  {
   my @r;
   no autovivification;
-  @r = @{$x}{qw/a b/} for 1 .. $n;
+  @r = @{$x}{qw<a b>} for 1 .. $n;
  }
  is_deeply $x, undef, 'numerous slices from an undef lexical';
 
  }
  is_deeply $x, undef, 'numerous slices from an undef lexical';
 
@@ -56,7 +56,7 @@ my $n = 100;
  {
   my @r;
   no autovivification;
  {
   my @r;
   no autovivification;
-  @r = @{$x->{a}}{qw/b c/} for 1 .. $n;
+  @r = @{$x->{a}}{qw<b c>} for 1 .. $n;
  }
  is_deeply $x, { a => undef }, 'numerous slices from a 1-level hashref lexical';
 }
  }
  is_deeply $x, { a => undef }, 'numerous slices from a 1-level hashref lexical';
 }
@@ -66,7 +66,7 @@ my $n = 100;
  {
   my @r;
   no autovivification;
  {
   my @r;
   no autovivification;
-  @r = @{$x}{qw/a b/} for 1 .. $n;
+  @r = @{$x}{qw<a b>} for 1 .. $n;
  }
  is_deeply $x, undef, 'numerous slices from an undef global';
 
  }
  is_deeply $x, undef, 'numerous slices from an undef global';
 
@@ -74,7 +74,7 @@ my $n = 100;
  {
   my @r;
   no autovivification;
  {
   my @r;
   no autovivification;
-  @r = @{$x->{a}}{qw/b c/} for 1 .. $n;
+  @r = @{$x->{a}}{qw<b c>} for 1 .. $n;
  }
  is_deeply $x, { a => undef }, 'numerous slices from a 1-level hashref global';
 }
  }
  is_deeply $x, { a => undef }, 'numerous slices from a 1-level hashref global';
 }
index 0e3cdecfa5f88da56329f07d3088f4579fd193b1..c79caaf66d5535b73716403519ca31aacac41f1e 100644 (file)
@@ -12,7 +12,7 @@ use lib 't/lib';
  my $x;
  my $res = eval {
   local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
  my $x;
  my $res = eval {
   local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
-  no autovivification qw/warn fetch/;
+  no autovivification qw<warn fetch>;
   $x->{a};
  };
  is   @w,    1,     'warned only once';
   $x->{a};
  };
  is   @w,    1,     'warned only once';
index 85ad4fc69fe37155bedde38cb78ed02243d80354..6b3d1e047f85a6efca46b8b1ecfaf86215b128ff 100644 (file)
@@ -14,7 +14,7 @@ if (eval 'use B::Deparse; 1') {
 my $bd = B::Deparse->new;
 
 {
 my $bd = B::Deparse->new;
 
 {
- no autovivification qw/fetch strict/;
+ no autovivification qw<fetch strict>;
 
  sub blech { my $key = $_[0]->{key} }
 }
 
  sub blech { my $key = $_[0]->{key} }
 }
index 925b8bb44b04549dfbad85bae5662409788f527c..4a01c7c46b17c0e2bee65376c37870588c4acb8f 100644 (file)
@@ -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_AUTOVIVIFICATION_TEST_THREADS} ? 1 : !1;
 
 BEGIN {
  my $force = $ENV{PERL_AUTOVIVIFICATION_TEST_THREADS} ? 1 : !1;
index d825f91bb5c2689e852af1a40211b192af4b3f0d..8cb64f3c317982722994563214f87e8edd2e5ddb 100644 (file)
@@ -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_AUTOVIVIFICATION_TEST_THREADS} ? 1 : !1;
 
 BEGIN {
  my $force = $ENV{PERL_AUTOVIVIFICATION_TEST_THREADS} ? 1 : !1;
index 317789ecbfdce1b4b63521eb767e2ced66b75ce3..54eaba1e1ca47aa457784418f2148903db50a2a1 100644 (file)
@@ -1,5 +1,5 @@
 package autovivification::TestRequired4::a0;
 package autovivification::TestRequired4::a0;
-no autovivification qw/strict fetch/;
+no autovivification qw<strict fetch>;
 use autovivification::TestRequired4::b0;
 sub error {
  local $@;
 use autovivification::TestRequired4::b0;
 sub error {
  local $@;
index 5ae1c7b19ec1a0e3c1805e8529690a20a512c2df..faa4f30f15ecb9346b90524bbfa6c4ce2a90e381 100644 (file)
@@ -1,5 +1,5 @@
 package autovivification::TestRequired5::a0;
 package autovivification::TestRequired5::a0;
-no autovivification qw/strict fetch/;
+no autovivification qw<strict fetch>;
 use autovivification::TestRequired5::b0;
 sub error {
  local $@;
 use autovivification::TestRequired5::b0;
 sub error {
  local $@;