[perl #113922] [BUG] for is too eager

[via RT]

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


See from IRC http://irclog.perlgeek.de/perl6/2012-06-18#i_5738718

A test might look something like the code below which currently results 
in a "not OK".

use Test;

my $i = 0;
my @a = (10, 20 ,30 ,40);
my @l := gather { for @a {$i++; take $_ } };
my @pull;
push @pull, $i, $_ for @l;
is_deeply(@pull, [ 0, 10, 1, 20, 2, 30, 3, 40]);