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

[via RT]

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


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.