[perl #54380] PGE <.rule> still generates captures

[via RT]

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


token identifier {
    <!reserved_word>
    <.identifier_nondigit> [ <.identifier_nondigit> | <.digit> ]*
    {*}
}

token identifier_nondigit {
    <.alpha> | [_] | <.universal_character_name>
}

 <identifier> => PMC 'C99::CPP::Grammar' => "SPI_H" @ 415 {
                                                        <> => 
ResizablePMCArray (size:5) [
                                                            PMC 
'C99::CPP::Grammar' => "S" @ 415 {
                                                                <> => 
PMC 'C99::CPP::Grammar' => "S" @ 415
                                                            },
                                                            PMC 
'C99::CPP::Grammar' => "P" @ 416 {
                                                                <> => 
PMC 'C99::CPP::Grammar' => "P" @ 416
                                                            },
                                                            PMC 
'C99::CPP::Grammar' => "I" @ 417 {
                                                                <> => 
PMC 'C99::CPP::Grammar' => "I" @ 417
                                                            },
                                                            PMC 
'C99::CPP::Grammar' => "_" @ 418,
                                                            PMC 
'C99::CPP::Grammar' => "H" @ 419 {
                                                                <> => 
PMC 'C99::CPP::Grammar' => "H" @ 419
                                                            }
                                                        ]
                                                    }