Skip to content

Commit

Permalink
RT #123168, test parsing of s{}="" if ....
Browse files Browse the repository at this point in the history
  • Loading branch information
FROGGS committed Nov 10, 2014
1 parent 5d89b28 commit f5e132d
Showing 1 changed file with 8 additions and 1 deletion.
9 changes: 8 additions & 1 deletion S05-substitution/subst.t
Expand Up @@ -2,7 +2,7 @@ use v6;

use Test;

plan 141;
plan 142;

# L<S05/Substitution/>

Expand Down Expand Up @@ -438,6 +438,13 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
eval_lives_ok '$_ = "a";s/a$/b/;s|b$|c|;s!c$!d!;', '$ anchor directly at the end of the search pattern works';
}

# RT #123168
{
my $foo = "bar";
$foo ~~ s:g [ r ] = 'z' if $foo.defined;
is $foo, 'baz', 's{}="" plus statement mod if is not parsed as /i';
}

done;

# vim: ft=perl6

0 comments on commit f5e132d

Please sign in to comment.