components/tcsh/patches/007.heredoc.patch
changeset 5040 6242a3f0012d
child 5271 195e24ffa71a
equal deleted inserted replaced
5036:06e4fcc325a1 5040:6242a3f0012d
       
     1 Developed in-house but accepted upstream.
       
     2 
       
     3 --- tcsh-6.18.01/sh.sem.c.orig	Sat Oct 31 10:58:21 2015
       
     4 +++ tcsh-6.18.01/sh.sem.c	Sat Oct 31 10:59:42 2015
       
     5 @@ -212,8 +212,14 @@
       
     6  	 * If noexec then this is all we do.
       
     7  	 */
       
     8  	if (t->t_dflg & F_READ) {
       
     9 +	    int	old_pintr_disabled;
       
    10 +	    
       
    11  	    xclose(0);
       
    12 +	    if (setintr)
       
    13 +	        pintr_push_enable(&old_pintr_disabled);
       
    14  	    heredoc(t->t_dlef);
       
    15 +	    if (setintr)
       
    16 +	        cleanup_until(&old_pintr_disabled);
       
    17  	    if (noexec)
       
    18  		xclose(0);
       
    19  	}