[perl #115384] [BUG] 'when' and 'default' clauses decontainerize stuff in Rakudo

[jn...@jnthn.net via RT]

On Sat Oct 20 13:23:21 2012, masak wrote:
> <masak> r: .say for { a => 1, b => 2 }
> <p6eval> rakudo b86628: OUTPUT«("a" => 1, "b" => 2).hash␤»
> <masak> shouldn't flatten, right?
> <masak> r: .say for gather take do given 1 { default { { a => 1, b =>
> 2 } } }
> <p6eval> rakudo b86628: OUTPUT«"a" => 1␤"b" => 2␤»
> <masak> also shouldn't flatten, methinks.
> <masak> and yet it... does.
> <jnthn> If you remove the default?
> <masak> r: .say for gather take do given 1 { { a => 1, b => 2 } }
> <p6eval> rakudo b86628: OUTPUT«("a" => 1, "b" => 2).hash␤»
> <masak> either a 'when' or a 'default' is required for the bug to
> appear.
> * masak submits rakudobug

Both when and default no longer decontainerize. Test coverage added in 
S04-statements/when.t.