From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 28 Apr 1994 04:35:39 +0000 (+0000)
Subject: (create_process): If vfork fails, close forkin and forkout.
X-Git-Tag: emacs-19.34~8696
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6311cf580d679fc27246dc30b9609827a92f2584;p=emacs.git

(create_process): If vfork fails, close forkin and forkout.
---

diff --git a/src/process.c b/src/process.c
index 8cb89b94d48..8b7b0dd46d0 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1396,7 +1396,13 @@ create_process (process, new_argv, current_dir)
   }
 
   if (pid < 0)
-    report_file_error ("Doing vfork", Qnil);
+    {
+      if (forkin >= 0)
+	close (forkin);
+      if (forkin != forkout && forkout >= 0)
+	close (forkout);
+      report_file_error ("Doing vfork", Qnil);
+    }
   
   XFASTINT (XPROCESS (process)->pid) = pid;