# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767156815 0
# Node ID 1855e568a9b8b6833463bb19d0adfe1d059048e3
# Parent  7102dd374da40add76d0385583d0dcc2161bf378
(create_process): Use SETUP_SLAVE_PTY only if pty_flag.

diff -r 7102dd374da4 -r 1855e568a9b8 src/process.c
--- a/src/process.c	Sat Apr 23 21:38:16 1994 +0000
+++ b/src/process.c	Sun Apr 24 03:06:55 1994 +0000
@@ -1349,7 +1349,10 @@
 	  }
 #endif /* not UNIPLUS and not RTU */
 #ifdef SETUP_SLAVE_PTY
-	SETUP_SLAVE_PTY;
+	if (pty_flag)
+	  {
+	    SETUP_SLAVE_PTY;
+	  }
 #endif /* SETUP_SLAVE_PTY */
 #ifdef AIX
 	/* On AIX, we've disabled SIGHUP above once we start a child on a pty.