Switch to qw<>

[perl/modules/autovivification.git] / t / 24-hash-numerous.t

diff --git a/t/24-hash-numerous.t b/t/24-hash-numerous.t
index 6d489a85430fb77a66cff605d4184400a617a163..4c559f36ff063e63b9a54ba5304abdbaf3ebe4a1 100644 (file)
--- 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';
 }