[perl #128935] [BUG] "where" clauses are parsed, but not enforced, in "my" expressions

[Zoffix Znet via RT]

On Sun, 14 Aug 2016 18:19:44 -0700, timo wrote:
> 
>     gfldex:   m: dd my ($i, $k where * == 4) = (1,3); dd $i, $k
>     +camelia: rakudo-moar ee8a25: OUTPUT«(1, 3)␤Int $i = 1␤Int $k = 3␤»
> 
> Shouldn't allow $k to be bound to any value that doesn't numify to 4,
> but it does.
> 
> Alternatively (or "in the mean time") it should probably complain that
> it's NYI.
> 

It is implemented and works for single variables. The bug occurs whenever the 
my is done on several variables.

And I can't get it to dump the parse tree, as it hangs (perhaps related to the 
bug?):

This is the shortest hanging golf I got:

./perl6 --target=parse -e 'my ($, $)'