diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2005-03-25 02:31:09 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-25 21:09:23 +0000 |
| commit | bd5f3bc473acbb69a352d57b0baf5d694577ad8e (patch) | |
| tree | 4d7b511e0e7ed330dd8a499542cbc7af8d7e84ba | |
| parent | 73d840c0daa603a18a29260159881d4ef6772d73 (diff) | |
| download | perl-bd5f3bc473acbb69a352d57b0baf5d694577ad8e.tar.gz | |
Re: [perl #34568] Perl crashes reading past the end of a heap block while parsing foreach statement
Message-Id: <200503251831.j2PIV9A6006234@smtp3.ActiveState.com>
p4raw-id: //depot/perl@24080
| -rw-r--r-- | op.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -3925,7 +3925,6 @@ Perl_newFOROP(pTHX_ I32 flags,char *label,line_t forline,OP *sv,OP *expr,OP *blo expr = mod(force_list(expr), OP_GREPSTART); } - loop = (LOOP*)list(convert(OP_ENTERITER, iterflags, append_elem(OP_LIST, expr, scalar(sv)))); assert(!loop->op_next); @@ -3936,7 +3935,7 @@ Perl_newFOROP(pTHX_ I32 flags,char *label,line_t forline,OP *sv,OP *expr,OP *blo { LOOP *tmp; NewOp(1234,tmp,1,LOOP); - Copy(loop,tmp,1,LOOP); + Copy(loop,tmp,1,LISTOP); FreeOp(loop); loop = tmp; } |