From 080694ae82635e76992158591b39a06af7363da0 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Tue, 24 Mar 2015 22:15:31 +0200
Subject: Further progress on indirect calls of builtins.

---
 builtin.c | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'builtin.c')

diff --git a/builtin.c b/builtin.c
index 4dd08eb1..7926a320 100644
--- a/builtin.c
+++ b/builtin.c
@@ -3000,7 +3000,7 @@ NODE *
 call_sub_func(const char *name, int nargs)
 {
 	unsigned int flags = 0;
-	NODE *tmp;
+	NODE *regex, *replace;
 
 	if (name[0] == 'g') {
 		if (name[1] == 'e')
@@ -3009,10 +3009,15 @@ call_sub_func(const char *name, int nargs)
 			flags = GSUB;
 	}
 
-	tmp = PEEK(1);
-	if (tmp->type == Node_val) {
-		flags |= LITERAL;
-	}
+	if ((flags == 0 || flags == GSUB) && nargs != 2)
+		fatal(_("%s: can be called indirectly only with two arguments"), name);
+
+	replace = POP();
+
+	regex = POP();	/* the regex */
+	regex = make_regnode(Node_regex, regex);
+	PUSH(regex);
+	PUSH(replace);
 
 	return do_sub(nargs, flags);
 }
-- 
cgit v1.2.3