diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-29 08:26:36 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-29 08:26:36 +0000 |
commit | 5152d7c70255adc94c2a3e2b618f1dda3b081e12 (patch) | |
tree | 412a04d734e1ddf89ae79fb5a796c3b492df6920 /op.c | |
parent | a9332b4ad63f5e28b9c5fd64a3ea35e9db2df408 (diff) | |
download | perl-5152d7c70255adc94c2a3e2b618f1dda3b081e12.tar.gz |
bump patchlevel to 69, various little tweaks (tested on win32, Solaris
under several build configurations)
p4raw-id: //depot/perl@1262
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -3057,19 +3057,19 @@ newFOROP(I32 flags,char *label,line_t forline,OP *sv,OP *expr,OP *block,OP *cont CONDOP* range = (CONDOP*) flip->op_first; OP* left = range->op_first; OP* right = left->op_sibling; - LISTOP* list; + LISTOP* listop; range->op_flags &= ~OPf_KIDS; range->op_first = Nullop; - list = (LISTOP*)newLISTOP(OP_LIST, 0, left, right); - list->op_first->op_next = range->op_true; + listop = (LISTOP*)newLISTOP(OP_LIST, 0, left, right); + listop->op_first->op_next = range->op_true; left->op_next = range->op_false; - right->op_next = (OP*)list; - list->op_next = list->op_first; + right->op_next = (OP*)listop; + listop->op_next = listop->op_first; op_free(expr); - expr = (OP*)(list); + expr = (OP*)(listop); null(expr); iterflags |= OPf_STACKED; } |