[perl #103258] ~ parser generator in regexes supresses captures

[via RT]

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


18:39 < moritz> nom: '(a)' ~~ /'(' ~ ')' <alpha> / and say $<alpha>
18:39 <+p6eval> nom 198513: OUTPUT«Any()␤»
18:40 < moritz> nom: '(a)' ~~ /'(' <alpha> ')' / and say $<alpha>
18:40 <+p6eval> nom 198513: OUTPUT«=> <a>␤␤»

Both should produce the same output (ie capturing the 'a')