# New Ticket Created by Elizabeth Mattijsen
# Please include the string: [perl #119609]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=119609 >
[23:44:41] <lizmat> r: my %e; (%e{$_.WHICH} //= ($_ => 0)).value++ for <a
b b c c c>; say %e.perl # scoping issue?
[23:44:43] <+camelia> rakudo 78ccd9: OUTPUT«("Str|a" => Any => 1, "Str|b" =>
Any => 2, "Str|c" => Any => 3).hash»
[23:44:53] <lizmat> why are the pairs all Any?
[23:46:00] <lizmat> r: my %e; for <a b b c c c> -> $k { (%e{$k.WHICH} //=
($k => 0)).value++}; say %e.perl # this seems to work
[23:46:02] <+camelia> rakudo 78ccd9: OUTPUT«("Str|a" => "a" => 1, "Str|b" =>
"b" => 2, "Str|c" => "c" => 3).hash»
[23:46:19] <lizmat> feels like a rakudobug to me
[23:46:59] <FROGGS> r: my %e; -> $_ { (%e{$_.WHICH} //= ($_ => 0)).value++
} for <a b b c c c>; say %e.perl # scoping issue?
[23:47:00] <+camelia> rakudo 78ccd9: OUTPUT«("Str|a" => "a" => 1, "Str|b" =>
"b" => 2, "Str|c" => "c" => 3).hash»
[23:47:21] <jnthn> lizmat: I'm tired, but yes, looks like...
[23:47:45] <lizmat> will use FROGGS++ quick fix
[23:48:01] <lizmat> and report as rakudobug
