X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F24-hash-numerous.t;h=4c559f36ff063e63b9a54ba5304abdbaf3ebe4a1;hb=3201984d539ab173c11a001792be4294af17a08c;hp=6d489a85430fb77a66cff605d4184400a617a163;hpb=b3ee8fb0443427961f58b2005727cba0ab05e809;p=perl%2Fmodules%2Fautovivification.git

diff --git a/t/24-hash-numerous.t b/t/24-hash-numerous.t
index 6d489a8..4c559f3 100644
--- a/t/24-hash-numerous.t
+++ b/t/24-hash-numerous.t
@@ -48,7 +48,7 @@ my $n = 100;
  {
   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';
 
@@ -56,7 +56,7 @@ my $n = 100;
  {
   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';
 }
@@ -66,7 +66,7 @@ my $n = 100;
  {
   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';
 
@@ -74,7 +74,7 @@ my $n = 100;
  {
   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';
 }