On Tue, 29 Nov 2016 22:24:43 -0800, comdog wrote:
> This is still broken, and it's important to me. 
> 
> my $target = 'abcdef';
> 
> my $n = 'abc';
> my $r = rx/ ( 'abc' ) /;
> say "\$r is ", $r.WHAT;
> $r.say;
> 
> # This returns a Bool
> my $result = $target ~~ $r;
> say "result is ", $result.WHAT;
> 
> # This returns a Match
> my $result = $target ~~ rx/ ( 'abc' ) /;
> say "result is ", $result.WHAT;
> 
> 
> put '$r: ',
>       $target ~~ $r
>               ?? "Matched $0" !! 'Misssed';
> 
> put 'rx// directly: ',
>       $target ~~ rx/ ( <$n> ) /
>               ?? "Matched $0" !! 'Misssed';
> 
> put 'm//: ',
>       $target ~~ m/ ( <$n> ) /
>               ?? "Matched $0" !! 'Misssed';


This was fixed as part of another dupe ticket in 
https://github.com/rakudo/rakudo/commit/5ac593ee098f204ea69ef57edd9ae0925c544ea4
and tests were added too.

Brian, update to 2016.11 release to receive the fix.

Reply via email to