[perl #66292] Something is wrong in Match.perl in Rakudo

[Carl Mäsak]

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


<masak> rakudo: say ?("say <OH HAI>" ~~ /<Perl6::Grammar::TOP>/); say $/.perl
<p6eval> rakudo 77db80: OUTPUT«1␤No result object␤in method Match::!_perl [...]
<masak> pmichaud: I never reported this yesterday, but I think I perhaps should.
<masak> pmichaud: it is a bug in .perl after all, right?
<pmichaud> oh, yes.
* masak submits rakudobug
<pmichaud> Although it could be a bug in Match somehow.
<pmichaud> rakudo: say ?("say <OH HAI>" ~~ /<Perl6::Grammar::TOP>/); say ?$/
<p6eval> rakudo 77db80: OUTPUT«1␤1␤»
<pmichaud> rakudo: say ?("say <OH HAI>" ~~ /<Perl6::Grammar::TOP>/); say $/.ast
<p6eval> rakudo 77db80: OUTPUT«1␤say <OH HAI>␤»
<pmichaud> rakudo: say ?("say <OH HAI>" ~~ /<Perl6::Grammar::TOP>/); say $/.Str
<p6eval> rakudo 77db80: OUTPUT«1␤say <OH HAI>␤»
<pmichaud> yes, looks like a bug in .perl