From 51608eb1f02cc256239cd9b9c334dbc0cd1dc528 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Sat, 3 Dec 2005 00:14:25 +0000
Subject: 22049: bug exiting from sourced file within function

---
 Src/init.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Src/init.c')

diff --git a/Src/init.c b/Src/init.c
index 9afa2f24e..58b390bfa 100644
--- a/Src/init.c
+++ b/Src/init.c
@@ -1060,7 +1060,8 @@ source(char *s)
     loops = oloops;                  /* the # of nested loops we are in      */
     dosetopt(SHINSTDIN, oldshst, 1); /* SHINSTDIN option                     */
     errflag = 0;
-    retflag = 0;
+    if (!exit_pending)
+	retflag = 0;
     scriptname = old_scriptname;
     free(cmdstack);
     cmdstack = ocs;
-- 
cgit 1.4.1