[perl #121024] [BUG] Interpolation of /<$var>/ causes incorrect matches when $var contains alternation.

[Christian Bartolomaeus via RT]

FWIW the first two evaluations give identical results now:

$ perl6 -e 'my $s = "abcdefghtttaaccta"; my @pats = /ttta<[agt]>cct/, 
/z|ttta<[agt]>cct/; for @pats -> $pat { say $s.comb( /$pat/ ); }'
(tttaacct)
(tttaacct)

$ perl6 -e 'my $s = "abcdefghtttaaccta"; my @pats = "ttta<[agt]>cct", 
"z|ttta<[agt]>cct"; for @pats -> $pat { say $s.comb( /<$pat>/ ); }'
(tttaacct)
(tttaacct)