From fe915601a150502c2561628148ec318cf738f1fa Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Tue, 25 Dec 2012 20:44:32 +0200 Subject: Additional bug fix from John Haque. --- eval.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 9081a774..018c09c6 100644 --- a/eval.c +++ b/eval.c @@ -1138,8 +1138,10 @@ r_get_lhs(NODE *n, int reference) if (n->orig_array->type == Node_var_array) fatal(_("attempt to use array `%s' in a scalar context"), array_vname(n)); - n->orig_array->type = Node_var; - n->orig_array->var_value = Nnull_string; + if (n->orig_array->type != Node_var) { + n->orig_array->type = Node_var; + n->orig_array->var_value = Nnull_string; + } /* fall through */ case Node_var_new: n->type = Node_var; -- cgit v1.2.1