[perl #117831] [BUG] Grammar capture of '%' separator

[via RT]

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


    $ perl6 --version
   This is perl6 version 2013.04-22-gd2af402 built on parrot 5.2.0 revision
RELEASE_5_2_0
    $ cat g.pl
    grammar G {
        token TOP {<letter> +% <sep>}
        token letter{<[a..z]>}
        token sep{\,}
    }

    say G.parse("a,b,c,d").caps.map({$_.value});

    $ perl6 g.pl
    a b c , d

I'd have expected: a , b , c , d

This is the first time I've tried to use '%' in a capture. Rakudo star
2013.02 also does the same.

- David

    $ perl6 --version

   This is perl6 version 2013.04-22-gd2af402 built on parrot 5.2.0 revision RELEASE_5_2_0

    $ cat g.pl

    grammar G {

        token TOP {<letter> +% <sep>}

        token letter{<[a..z]>}

        token sep{\,}

    }

    say G.parse("a,b,c,d").caps.map({$_.value});

    $ perl6 g.pl

    a b c , d

I'd have expected: a , b , c , d

This is the first time I've tried to use '%' in a capture. Rakudo star 2013.02 also does the same.

- David