[perl #129757] for loop doesn't update correct variable

# A self-contained test that shows the correct behavior and doesn't get into print/printf.

require "t/test.pl";

my $i = 2112;

ok( $i == 2112, '$i starts at 2112' );

my $n;
for $i (1..3) {
    ++$n;
    ok( $i == $n, '$i is ' . $n . ' inside of the for loop' );
    somesub();
}

ok( $i == 2112, '$i should go back to 2112 outside of the loop' );

exit 0;

sub somesub {
    ok( $i == $n, '$i is ' . $n . ' in the subroutine' );
}

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=129757

• [perl #129757] for loop doesn't update correct variable by James E Keenan via RT
• Re: [perl #129757] for loop doesn't update correct variable by Eirik Berg Hanssen
• Re: [perl #129757] for loop doesn't update correct variable by Ricardo Signes
• [perl #129757] for loop doesn't update correct variable by Andy Lester via RT
• [perl #129757] for loop doesn't update correct variable by Mark-Jason Dominus
• Re: [perl #129757] for loop doesn't update correct variable by Aristotle Pagaltzis
• [perl #129757] for loop doesn't update correct variable by Father Chrysostomos via RT