summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-06-29 08:26:36 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-06-29 08:26:36 +0000
commit5152d7c70255adc94c2a3e2b618f1dda3b081e12 (patch)
tree412a04d734e1ddf89ae79fb5a796c3b492df6920 /op.c
parenta9332b4ad63f5e28b9c5fd64a3ea35e9db2df408 (diff)
downloadperl-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.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/op.c b/op.c
index 7c5587e6d5..d5f0bb680d 100644
--- a/op.c
+++ b/op.c
@@ -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;
}