[perl #63634] [BUG] repeated take($x) all get the same value

[abhijit mahabal]

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


<ecode>

my @y = gather {
    my $x = 0;
    for 1..5 {
        $x++;
        take $x;
    }
};
say @y;

</ecode>

produces 55555.
-- 
-- Abhijit