diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-05-07 12:57:06 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-05-07 12:57:06 +0000 |
| commit | a034e688aeb372632feafc428b392a22393dec55 (patch) | |
| tree | 00edd69325fa45e86f3a3a37b5ef01820d454559 /embed.fnc | |
| parent | 5203fbcae61b42c66ba138a48162ecc0880db2c9 (diff) | |
| download | perl-a034e688aeb372632feafc428b392a22393dec55.tar.gz | |
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
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -535,8 +535,8 @@ Apd |SV* |newSVrv |SV* rv|const char* classname Apd |SV* |newSVsv |SV* old Ap |OP* |newUNOP |I32 type|I32 flags|OP* first Ap |OP* |newWHILEOP |I32 flags|I32 debuggable|LOOP* loop \ - |I32 whileline|OP* expr|OP* block|OP* cont - + |I32 whileline|OP* expr|OP* block|OP* cont \ + |I32 has_my Ap |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems Ap |char* |scan_vstring |const char *vstr|SV *sv Apd |char* |scan_version |const char *vstr|SV *sv|bool qv |