From bf3ee0f725411f3829f3b646692eaec14f03776d Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Sat, 3 Dec 2005 00:14:05 +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 c7f20a1bd..6751df6ba 100644
--- a/Src/init.c
+++ b/Src/init.c
@@ -1085,7 +1085,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