[perl #114748] recursive grammars

[via RT]

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


# gammars seam to get confused when used recursively
use v6;

my $s1 = 'AA foo; BB baz; AA bar;';
my $s2 = 'AA buzz;';

grammar G {
         rule TOP { [ [ <ta> | <tb> ] <.ws> ]+ }
         rule ta { 'AA' <name>';' { say $/<name>.Str; } }
         rule tb { 'BB' <name>';' { G.parse($s2); say $/<name>.Str; } }
         rule name { \w+ }
}

say ?G.parse($s1);

-----------------------

foo
buzz
use of uninitialized value of type Any in string context  in regex tb at 
recursive-grammar.p6:9


bar
True