Re: Re: Re: This is really a Perl BUG with my?! Need some advice...

[chromatic]

What would you expect this code to do?

if ($foo)
{
    my $bar = 1;
}

print $bar;

You're doing the same thing without changing scope. Sometimes you ask Perl to create a new lexical in the pad, sometimes you don't. Since the sub reuses its pad between invocations and since destroying and recreating all lexicals in a pad is an expensive operation, if the my doesn't fire, you end up reusing the previous variable.

Update: Highlighted the important bit that I'd already explained.