Make call-by-value work again for $0.

1 files changed, 7 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 12776846..dfb99a4c 100644
--- a/eval.c
+++ b/eval.c
@@ -1325,7 +1325,13 @@ setup_frame(INSTRUCTION *pc)
 
 		if (m->type == Node_param_list)
 			m = GET_PARAM(m->param_cnt);
-			
+
+		/* $0 needs to be passed by value to a function */
+		if (m == fields_arr[0]) {
+			DEREF(m);
+			m = dupnode(m);
+		}
+
 		switch (m->type) {
 		case Node_var_new:
 		case Node_var_array: