From @masak

<Tene> rakudo​: 'say 1' ~~ /<Perl6​::Grammar​::TOP>/; say $/.perl;
<p6eval> rakudo 0d5515​: OUTPUT«No result object [...]
<masak> Tene​: plz submit rakudobug.
<Tene> I'm pretty sure I've seen it many times before
<Tene> should already be filed...
* masak checks
<masak> Tene​: no, I don't find it. I'll submit it just in case.
<masak> some heroic figure might show up eventually and sort out our
rakudobugs...
<masak> till then, I'd rather submit too many than too few.
<Tene> nodnod

From @masak

<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

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/S05-match/perl.t

commit 4d2fe0287307fdeb8318896610f074fafc4dd9ea
Author​: kyle <kyle@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Tue Aug 4 18​:34​:53 2009 +0000

  [t/spec] Tests for RT #​64874
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;27869 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S05-match/perl.t b/t/spec/S05-match/perl.t
index 5f62299..6f96d0d 100644
--- a/t/spec/S05-match/perl.t
+++ b/t/spec/S05-match/perl.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 6;
+plan 11;
 
 # tests for Match.perl
 
@@ -25,5 +25,18 @@ regex o { o };
 ok "foo" ~~ /<f> <o>+ /, 'Regex matches (2)';
 lives_ok { $/.perl }, 'lives on quantified named captures';
 
+# RT #64874
+{
+    my $code_str = 'say <OH HAI>';
+    $code_str ~~ /<Perl6::Grammar::TOP>/;
+
+    isa_ok $/, Match;
+    is $/.ast, $code_str, 'Match.ast is the code matched';
+    is $/.Str, $code_str, 'Match.Str is the code matched';
+    #?rakudo todo 'RT #64874'
+    lives_ok { $/.perl }, 'can Match.perl';
+    #?rakudo skip 'RT #64874'
+    is_deeply eval($/.perl), $/, 'eval of Match.perl recreates Match';
+}
 
 # vim: ft=perl6

The RT System itself - Status changed from 'new' to 'open'

From @bbkr

On Pisa build​:

[14​:55] <bbkr> rakudo​: 'say 1' ~~ /<Perl6​::Grammar​::TOP>/; say $/.perl;
[14​:55] <p6eval> rakudo e45bf6​: OUTPUT«===SORRY!===␤regex assertion not
terminated by angle bracket at line 22, near "​::Grammar​:"␤»

From @moritz

Perl6​::Grammar now isn't visible in user-space code anymore, so the
basis for this bug report is gone.

@moritz - Status changed from 'open' to 'rejected'