[perl #62828] .clone inside while loop which shifts off an array doesn't clone properly in Rakudo

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

On Tue Jan 27 05:27:07 2009, masak wrote:
> <masak> rakudo: class A { has $.b; }; while shift [A.new( :b(0) )] ->
> $a { say $a.b; $a.clone( :b($a.b + 1) ); say $a.b; last; }
> <polyglotbot> OUTPUT[0␤1␤]
> * masak submits rakudobug

Fixed in git 59024e0 and added pretty much this exact code as a test
case to S12-attributes/clone.t.

Thanks!

Jonathan