orelse + block in a string gets the wrong $_

[p6rt]

Migrated from rt.perl.org#132172 (status was 'resolved')

Searchable as RT132172$

[p6rt]

From @zoffixznet

Here, instead of the Failure, the $_ is an Any​:

13​:59 m​: sub x { my $ver = .lines.uc with "blazr".IO.open orelse note "meow {.exception.message}" and return 42; "meow$ver" }; dd x
13​:59 camelia rakudo-moar 9af560​: OUTPUT​: «No such method 'exception' for invocant of type 'Any'␤ in sub x at <tmp> line 1␤ in block <unit> at <tmp> line 1␤␤»

But if we remove the block, then we get the right $_​:
14​:00 Zoffix m​: sub x { my $ver = .lines.uc with "blazr".IO.open orelse note "meow " ~ .exception.message and return 42; "meow$ver" }; dd x
14​:00 camelia rakudo-moar 9af560​: OUTPUT​: «meow Failed to open file /home/camelia/blazr​: No such file or directory␤42␤»

It's possible this issue also affects andthen and notandthen

[p6rt]

From @zoffixznet

On Wed, 27 Sep 2017 07​:09​:16 -0700, cpan@​zoffix.com wrote​:

Here, instead of the Failure, the $_ is an Any​:

13​:59 m​: sub x { my $ver = .lines.uc with "blazr".IO.open
orelse note "meow {.exception.message}" and return 42; "meow$ver" };
dd x
13​:59 camelia rakudo-moar 9af560​: OUTPUT​: «No such method
'exception' for invocant of type 'Any'␤ in sub x at <tmp> line 1␤ in
block <unit> at <tmp> line 1␤␤»

But if we remove the block, then we get the right $_​:
14​:00 Zoffix m​: sub x { my $ver = .lines.uc with "blazr".IO.open
orelse note "meow " ~ .exception.message and return 42; "meow$ver" };
dd x
14​:00 camelia rakudo-moar 9af560​: OUTPUT​: «meow Failed to
open file /home/camelia/blazr​: No such file or directory␤42␤»

It's possible this issue also affects andthen and notandthen

Thank you for the report. This is now fixed.

Fix​: rakudo/rakudo@1ee89b5
Test​: Raku/roast@2f29987

[p6rt]

@zoffixznet - Status changed from 'new' to 'resolved'