# New Ticket Created by Tadeusz SoĊnierz
# Please include the string: [perl #76884]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=76884 >
The following code:
grammar grr {
token TOP {
<line>*
}
token line { .* \n }
}
my $match = grr.parse('foo bar asd');
unless $match {
die 'oh noes!'
}
say $match[0].perl;
Results in the following behaviour:
Null PMC access in find_method('perl')
in <anon> at line 1202:CORE.setting
in 'Any::join' at line 1
in 'Mu::attribs' at line 1203:CORE.setting
in 'Mu::perl' at line 1207:CORE.setting
in main program body at line 14:parser.pl
Whereas it should it should return a failure, for there is no $match[0]