From a034e688aeb372632feafc428b392a22393dec55 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Sat, 7 May 2005 12:57:06 +0000 Subject: 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 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'embed.fnc') diff --git a/embed.fnc b/embed.fnc index 1b1b811bc3..a410b1a33c 100644 --- a/embed.fnc +++ b/embed.fnc @@ -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 -- cgit v1.2.1