while (my $x ...) { ...; redo } shouldn't undef $x.
authorDave Mitchell <davem@fdisolutions.com>
Sat, 7 May 2005 12:57:06 +0000 (12:57 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sat, 7 May 2005 12:57:06 +0000 (12:57 +0000)
commita034e688aeb372632feafc428b392a22393dec55
tree00edd69325fa45e86f3a3a37b5ef01820d454559
parent5203fbcae61b42c66ba138a48162ecc0880db2c9
while (my $x ...) { ...; redo } shouldn't undef $x.
In the presence of 'my' in the conditional of a while(), until(),
or for(;;) loop, add an extra scope to the body so that redo
doesn't undef the lexical

p4raw-id: //depot/perl@24412
embed.fnc
embed.h
op.c
perly.act
perly.h
perly.tab
perly.y
pp_ctl.c
proto.h
t/op/loopctl.t