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


'a b c d' ~~ /:s [(\w) <alpha> ]+/;

say $0.WHAT;
say $0.elems;
say $<alpha>.WHAT;
say $<alpha>.elems;
say $/;

Produces randomly either

Array()
2
Match()
1
a b c d

or

Array()
2
Array()
2
a b c d

(second output is correct).
It even randomly alternates when I call it with
parrot --hash-seed 0 perl6.pbc $file

This bug manifests itself in S05-capture/caps.t.

Reply via email to