[perl #126278] Dynamic variable binding doesn't check for proper container

[via RT]

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


The broken behavior:

<ShimmerFairy> m: my @*A := 42
<camelia> rakudo-moar bad9be: ( no output )
<ShimmerFairy> m: my %*A := 42
<camelia> rakudo-moar bad9be: ( no output )
<ShimmerFairy> m: my &*A := 42
<camelia> rakudo-moar bad9be: ( no output )

The expected behavior:

<ShimmerFairy> m: my @A := 42
<camelia> rakudo-moar bad9be: OUTPUT«Type check failed in binding; expected 
Positional but got Int␤  in block <unit> at /tmp/T2aUUQrbL2:1␤␤»
<ShimmerFairy> m: my %A := 42
<camelia> rakudo-moar bad9be: OUTPUT«Type check failed in binding; expected 
Associative but got Int␤  in block <unit> at /tmp/R8h3mTS3Ao:1␤␤»
<ShimmerFairy> m: my &A := 42
<camelia> rakudo-moar bad9be: OUTPUT«Type check failed in binding; expected 
Callable but got Int␤  in block <unit> at /tmp/htfXw0lr56:1␤␤»

Apparently rakudo's contextuals don't check binding to see if the object being 
bound is of the right type (Postional/Associative/Callable)