[perl #76892] [BUG] There's nothing in $0 et al. after doing a regex match with infix: in Rakudo

[Carl Mäsak]

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


<masak> rakudo: my $a = "fool!"; $a ~~ / (foo) /; say $0
<p6eval> rakudo 9b6189: OUTPUT«foo␤»
<masak> rakudo: my $a = "fool!"; $a !~~ / (foo) /; say $0
<p6eval> rakudo 9b6189: OUTPUT«Any()␤»
* masak submits rakudobug
<masak> just because I want it not to match doesn't mean I don't want
it to capture. :)
<masak> oh well, easy/obvious workaround.
<masak> rakudo: my $a = "fool!"; $a ~~ / (foo) { say "OH HAI" } /
<p6eval> rakudo 9b6189: OUTPUT«OH HAI␤»
<masak> rakudo: my $a = "fool!"; $a !~~ / (foo) { say "OH HAI" } /
<p6eval> rakudo 9b6189: OUTPUT«OH HAI␤»
<masak> interesting. so the error seems to be in !~~
<masak> the lack of assigning to $/, that is.
<masak> rakudo: my $a = "fool!"; $a ~~ / (foo) { say $0 } /
<p6eval> rakudo 9b6189: OUTPUT«foo␤»
<masak> rakudo: my $a = "fool!"; $a !~~ / (foo) { say $0 } /
<p6eval> rakudo 9b6189: OUTPUT«foo␤»
<isBEKaml> masak: Interesting...
<masak> interestinger and interestinger...