components/tcsh/patches/007.heredoc.patch
author Mike Sullivan <Mike.Sullivan@Oracle.COM>
Mon, 02 Nov 2015 11:02:02 -0800
changeset 5040 6242a3f0012d
child 5271 195e24ffa71a
permissions -rw-r--r--
22124201 TCSH Latest Patch 126630-03 changes the behavior of Exit . You cannot exit .
Developed in-house but accepted upstream.

--- tcsh-6.18.01/sh.sem.c.orig	Sat Oct 31 10:58:21 2015
+++ tcsh-6.18.01/sh.sem.c	Sat Oct 31 10:59:42 2015
@@ -212,8 +212,14 @@
 	 * If noexec then this is all we do.
 	 */
 	if (t->t_dflg & F_READ) {
+	    int	old_pintr_disabled;
+	    
 	    xclose(0);
+	    if (setintr)
+	        pintr_push_enable(&old_pintr_disabled);
 	    heredoc(t->t_dlef);
+	    if (setintr)
+	        cleanup_until(&old_pintr_disabled);
 	    if (noexec)
 		xclose(0);
 	}