[perl #126454] [BUG] Channel: earliest $channel { ... } does not go away at end of scope

[via RT]

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


This is perl6 version 2015.10-16-g2f4bfd8 built on MoarVM version 2015.10

https://gist.github.com/zengargoyle/5324c93684d6f5a376a3

for 1,1,2,2 -> $num, $value {
   ... stuff ...
loop {
  earliest $channel {
    more * {  ... $num and $value are both still 1 even on second for loop ... }
    done * { last }
    }
  }
}

On the second time through the surrounding for loop, inside the
earliest block, the lexical $num and $value are still the values from
the first time through the loop.

Github gist has a test case.

----
zengargoyle