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

[Carl Mäsak via RT]

masak (>):
> <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> rakudo: my $a = "fool!"; $a ~~ / (foo) /; say $0
<p6eval> rakudo 5f5bae: OUTPUT«foo␤»
<masak> rakudo: my $a = "fool!"; $a !~~ / (foo) /; say $0
<p6eval> rakudo 5f5bae: OUTPUT«foo␤»
<masak> ooh!
* masak resolves http://rt.perl.org/rt3/Ticket/Display.html?id=76892

So I guess this one awaits a test now.