From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 30 Jul 1999 14:39:27 +0000 (+0000)
Subject: (create_process): Detect failure of `pipe'.
X-Git-Tag: emacs-pretest-21.0.90~7312
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc14013c817bee5582910d60e6f37ac97258cc95;p=emacs.git

(create_process): Detect failure of `pipe'.
---

diff --git a/src/process.c b/src/process.c
index 50b8647aa38..08f3f2cb4c9 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1379,10 +1379,19 @@ create_process (process, new_argv, current_dir)
     }
 #else /* not SKTPAIR */
     {
-      pipe (sv);
+      int tem;
+      tem = pipe (sv);
+      if (tem < 0)
+	report_file_error ("Creating pipe", Qnil);
       inchannel = sv[0];
       forkout = sv[1];
-      pipe (sv);
+      tem = pipe (sv);
+      if (tem < 0)
+	{
+	  close (inchannel);
+	  close (forkout);
+	  report_file_error ("Creating pipe", Qnil);
+	}
       outchannel = sv[1];
       forkin = sv[0];
     }