Switch to qw<>

[perl/modules/re-engine-Plugin.git] / t / 20-methods / stash.t

diff --git a/t/20-methods/stash.t b/t/20-methods/stash.t
index 9083263566071642d0583946bde5707f4f3efbd6..9357aa8d3865502c627008e1f88c6ba7b6bf394d 100644 (file)
--- a/t/20-methods/stash.t
+++ b/t/20-methods/stash.t
@@ -11,7 +11,7 @@ use re::engine::Plugin (
     comp => sub {
         my ($re) = @_;
 
-        my $sv = [ qw( a o e u ) ];
+        my $sv = [ qw< a o e u > ];
 
         $re->stash( $sv );
     },
@@ -21,7 +21,7 @@ use re::engine::Plugin (
         my $stash = $re->stash;
         my $ret = $re->stash( $stash );
         ok(!$ret, "stash returns no value on assignment");
-        my %h = qw( 0 a 1 o 2 e 3 u );
+        my %h = qw< 0 a 1 o 2 e 3 u >;
         for (keys %h) {
             is($h{$_}, $stash->[$_]);
         }