# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #114202]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=114202 >
<masak> r: (my %)<a> = 1; say (my %).perl # :)
<p6eval> rakudo cca6d4: OUTPUT«("a" => 1).hash»
<masak> o.O
* masak submits rakudobug
<jnthn> masak: Wow! :D
<masak> yeah!
<jnthn> masak: That's kinda awesome but also kinda terrible :)
<masak> anonymous but persistent :)
<masak> luckily this bug has come to the right person...
<jnthn> It's almost too amusing to want to track down and fix :P
<masak> r: (my @).push(1, 2, 3); say (my @).perl
<p6eval> rakudo cca6d4: OUTPUT«Array.new(1, 2, 3)»
<masak> r: (my $) = "OH HAI"; say (my $)
<p6eval> rakudo cca6d4: OUTPUT«===SORRY!===Contextual $*GOAL not found»
<masak> oh, that old one.
<masak> r: (my &) = sub { say "OH HAI" }; (my &)()
<p6eval> rakudo cca6d4: OUTPUT«OH HAI»
<masak> *sigh* :)
Expected: OUTPUT«().hash», etc.
