[perl #88128] [BUG] Separators in infix:<**> expression can't be captured in Rakudo

[Carl Mäsak]

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


<colomon> rakudo: if 'eggs, milk, sugar and flour' ~~ m/:s (\w+) ** \,
'and' (\w+)/ { say 'list: ', $/[0].join(' | '); say 'end: ', $/[1]; }
else { say 'no match' }
<p6eval> rakudo 4bf132: OUTPUT«list: eggs | milk | sugar␤end: flour␤»
<masak> rakudo: if 'eggs, milk, sugar and flour' ~~ m/:s (\w+) ** (\,
| 'and')/ { say $0.join(' | '); say $1.join(' | ') }
<p6eval> rakudo 4bf132: OUTPUT«eggs | milk | sugar | flour␤␤»
<masak> hm. why aren't my separators captured in $1 above?
<jnthn> masak: This looks familiar...
<jnthn> masak: I think ti's a bug.
<masak> jnthn: do you think it's a reported bug? :)
<jnthn> masak: Not sure. I mostly recall working around it in the Perl
6 grammar somewhere at some point.
* masak submits rakudobug