[perl #130356] type smiley not set on constraint in declaration of variable lists

[Zoffix Znet via RT]

On Thu, 15 Dec 2016 13:01:07 -0800, gfldex wrote:
> my (Any:D $a) = Any;
> # OUTPUT: ( no output )
>  expected:
> OUTPUT«Type check failed in assignment to $a; expected Any:D but got
> Any (Any)␤  in block <unit> at <tmp> line 1␤␤»
> 
> # `use variable :D` does work as expected and `$a.of` does not include
> # the type smiley for the first example.

This one https://rt.perl.org/Ticket/Display.html?id=128935#ticket-history is 
about the `where` clause not being applied in listy my's. I suspect the cause 
is exactly the same.