[perl #115916] "my (Str $a) = 3" should die but doesn't.

[via RT]

# New Ticket Created by  fe...@herrmann-koenigsberg.de 
# Please include the string:  [perl #115916]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=115916 >


Steps to reproduce:

my (Str $a) = 3;
say $a;

What I expected: This should die due to type errors.
What I got:      Just the output '3'.