[perl #116897] while (...splice...) runs forever

[via RT]

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



This program never terminates:

  use v6;

  my @a = << >>;

  while (my @c = splice @a, 0, 3) {
    say "one more";
  }

This is perl6 version 2013.01-136-g0d261a3 built on parrot 4.10.0 revision
RELEASE_4_10_0

-- 
rjbs

signature.asc
Description: PGP signature