comp => sub {
my ($re) = @_;
- my $sv = [ qw( a o e u ) ];
+ my $sv = [ qw< a o e u > ];
$re->stash( $sv );
},
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->[$_]);
}