Lexical variable replace doesn't work for "foreach my $foo (...) {}"

[tsee]

Summary says it all:
Lexical variable replace doesn't work for "foreach my $foo (...) {}"

Essentially, the problem is that the my $foo isn't find as the variable's declaration, so this needs to be fixed in Padre::PPI's code that searches for the declaration.

[tsee]

Furthemore, the current implementation may find additional declarations like this:

my $i;
if (1) {

if (1) {

$i++; # cursor here! => Hit "find lexical variable declaration"

}
my $i; # <== this is found as the declaration!

}

[tsee]

This seems to be fixed with commit 3470.