[perl #132172] [BUG] `orelse` + block in a string gets the wrong $_

[via RT]

# New Ticket Created by  Zoffix Znet 
# Please include the string:  [perl #132172]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=132172 >


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