[perl #101316] [BUG] &take flattens arrays in Rakudo

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #101316]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=101316 >


<masak> perl6: say .perl for (gather for 1, 2, 3 -> $a { for <a b c>
-> $b { take [$a, $b] } })
<p6eval> b 1b7dd1, niecza v10-43-gf5298c8: OUTPUT«[1, "a"]␤[1,
"b"]␤[1, "c"]␤[2, "a"]␤[2, "b"]␤[2, "c"]␤[3, "a"]␤[3, "b"]␤[3, "c"]␤»
<p6eval> ..nom 3e66bd:
OUTPUT«1␤"a"␤1␤"b"␤1␤"c"␤2␤"a"␤2␤"b"␤2␤"c"␤3␤"a"␤3␤"b"␤3␤"c"␤»
* masak submits rakudobug
<moritz> what's wrong, the .perl?
<moritz> nom: say <a b>.perl
<p6eval> nom 3e66bd: OUTPUT«("a", "b")␤»
<moritz> oh, it flattens
<masak> nom: say [<a b>].perl
<p6eval> nom 3e66bd: OUTPUT«["a", "b"]␤»
<masak> no, the problem isn't .perl, it seems, but &take