X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=blobdiff_plain;f=t%2F20-methods%2Fstash.t;h=9357aa8d3865502c627008e1f88c6ba7b6bf394d;hp=9083263566071642d0583946bde5707f4f3efbd6;hb=e20ad0b3c8306a73e1a0e0a1c5f88d6e84e3583e;hpb=9198b4f588644e22e005fe990c8321ce36a08375 diff --git a/t/20-methods/stash.t b/t/20-methods/stash.t index 9083263..9357aa8 100644 --- 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->[$_]); }