in reply to Does perl 5.8.2 have a bug with 'redo' statement
perl589delta states:
while (my $x ...) { ...; redo } shouldn't undef $x.
In the presence of my in the conditional of a while(), until() , or for(;;) loop, we now add an extra scope to the body so that redo doesn't undef the lexical.