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

[Carl Mäsak]

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


<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