[perl #121327] [BUG] Array shift in loop in loop in loop shifts from an outdated array (on second iteration) in Rakudo

[Sam S. via RT]

It works fine now:

    ➜  for ^2 { my @b = 1 xx 4; say (@b.shift xx 2) xx 2 }
    ((1 1) (1 1))
    ((1 1) (1 1))

Was apparently fixed a year ago:

    https://gist.github.com/Whateverable/e2a6fe61150eb2595ac0ff6929daeab1
    https://github.com/rakudo/rakudo/commit/5e61516

Can be closed with tests.