From 87699484738f7c1017fb5a46a7d56411511c7894 Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Tue, 26 Jul 2011 21:39:34 +0300 Subject: Additional getline fix. --- ChangeLog | 5 +++++ eval.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index bde19e1c..5b063174 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-07-26 John Haque + + * eval.c (r_interpret): In cases Op_var_assign and Op_field_assign, + include Op_K_getline_redir in the test for skipping the routine. + 2011-07-26 John Haque Fix handling of assign routines for 'getline var'. diff --git a/eval.c b/eval.c index bd3e0270..ea45efd9 100644 --- a/eval.c +++ b/eval.c @@ -2125,7 +2125,8 @@ post: */ break; - } else if (pc->assign_ctxt == Op_K_getline + } else if ((pc->assign_ctxt == Op_K_getline + || pc->assign_ctxt == Op_K_getline_redir) && TOP()->numbr <= 0.0 /* top of stack has a number <= 0 */ ) { /* getline returned EOF or error */ -- cgit v1.2.3