From 7060b34457f579864bddbe1caa3e3cdfea6981e2 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Mon, 9 Jul 2001 18:31:24 +0000
Subject: 15334: use string "(eval)" as script name in debugging messages in
 eval's

---
 Src/builtin.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Src/builtin.c')

diff --git a/Src/builtin.c b/Src/builtin.c
index 9a792e15c..c5491eb6b 100644
--- a/Src/builtin.c
+++ b/Src/builtin.c
@@ -3420,6 +3420,9 @@ int
 bin_eval(char *nam, char **argv, char *ops, int func)
 {
     Eprog prog;
+    char *oscriptname = scriptname;
+
+    scriptname = "(eval)";
 
     prog = parse_string(zjoin(argv, ' ', 1));
     if (!prog) {
@@ -3431,6 +3434,9 @@ bin_eval(char *nam, char **argv, char *ops, int func)
 	lastval = errflag;
 	errflag = 0;
     }
+
+    scriptname = oscriptname;
+
     return lastval;
 }
 
-- 
cgit 1.4.1