[perl #58744] Hashes flatten lists

[Patrick R. Michaud via RT]

Now fixed in r32441.  Here are the results:

$ ./parrot perl6.pbc
> .perl.say for {a => [<b c>]}.kv
"a"
["b", "c"]
> my %a = (a => [[3], [4,5]]); say %a<a>.perl
[[3], [4, 5]]
> my %a = (a => [[3], [4,5]]); say %a.perl;
{"a" => [[3], [4, 5]]}
> (a => [[1], [2]]).perl.say
("a" => [[1], [2]])
> my %a = (a => [[1], [2]]); %a.perl.say;
{"a" => [[1], [2]]}
> my $a = (a => [[1], [2]]); $a.perl.say;
("a" => [[1], [2]])
>


Thanks!

Pm