[perl #121166] [BUG] LTA error message when assigning to lexical variables from inside a regex in Rakudo

[Aleks-Daniel Jakimenko-Aleksejev via RT]

Still reproducible (2017.11,HEAD(e5b660e)), almost identical error message.

On 2014-02-04 08:01:17, masak wrote:
>  m: my $x; 'abc' ~~ /$x=(ab)/; say $x
>  rakudo-moar 44ab3c: OUTPUT«===SORRY!===␤Error while
> compiling op bind: QAST::Block with cuid cuid_1_1391529188.76986 has
> not appeared␤»
>  std: my $x; 'abc' ~~ /$x=(ab)/; say $x
>  std 09dda5b: OUTPUT«ok 00:01 127m␤»
>  n: my $x; 'abc' ~~ /$x=(ab)/; say $x
>  niecza v24-109-g48a8de3: OUTPUT«===SORRY!===␤␤Non-Match
> bindings NYI at /tmp/2rh2e31Bkj line 1:␤--> my $x; 'abc' ~~
> /$x=(ab)⏏/; say $x␤␤Unhandled exception: Check failed [...]
>  r: my $x; 'abc' ~~ /$x=(ab)/; say $x
>  rakudo-moar 44ab3c: OUTPUT«===SORRY!===␤Error while
> compiling op bind: QAST::Block with cuid cuid_1_1391529311.00125 has
> not appeared␤»
>  ..rakudo-jvm 44ab3c: OUTPUT«===SORRY!===␤setcodeobj can only
> be used with a CodeRef␤»
>  ..rakudo-parrot 44ab3c: OUTPUT«===SORRY!===␤Could not find
> sub cuid_1_1391529308.45272␤»
>  time for a LTA rakudobug?
>  well, I believe it's specced to Just Work
>
> Ok, so this ticket basically has two goals:
>
> * To make the error message not LTA
> * To make the feature Just Work

[perl #121166] [BUG] LTA error message when assigning to lexical variables from inside a regex in Rakudo

[Carl Mäsak]

# New Ticket Created by  Carl Mäsak 
# Please include the string:  [perl #121166]
# in the subject line of all future correspondence about this issue. 
# URL: https://rt.perl.org/Ticket/Display.html?id=121166 


moritz m: my $x; 'abc' ~~ /$x=(ab)/; say $x
camelia rakudo-moar 44ab3c: OUTPUT«===SORRY!===␤Error while
compiling op bind: QAST::Block with cuid cuid_1_1391529188.76986 has
not appeared␤»
TimToady1 std: my $x; 'abc' ~~ /$x=(ab)/; say $x
camelia std 09dda5b: OUTPUT«ok 00:01 127m␤»
TimToady1 n: my $x; 'abc' ~~ /$x=(ab)/; say $x
camelia niecza v24-109-g48a8de3: OUTPUT«===SORRY!===␤␤Non-Match
bindings NYI at /tmp/2rh2e31Bkj line 1:␤-- my $x; 'abc' ~~
/$x=(ab)⏏/; say $x␤␤Unhandled exception: Check failed [...]
TimToady1 r: my $x; 'abc' ~~ /$x=(ab)/; say $x
camelia rakudo-moar 44ab3c: OUTPUT«===SORRY!===␤Error while
compiling op bind: QAST::Block with cuid cuid_1_1391529311.00125 has
not appeared␤»
camelia ..rakudo-jvm 44ab3c: OUTPUT«===SORRY!===␤setcodeobj can only
be used with a CodeRef␤»
camelia ..rakudo-parrot 44ab3c: OUTPUT«===SORRY!===␤Could not find
sub cuid_1_1391529308.45272␤»
masak time for a LTA rakudobug?
TimToady1 well, I believe it's specced to Just Work

Ok, so this ticket basically has two goals:

* To make the error message not LTA
* To make the feature Just Work