From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 7 Dec 2011 17:48:39 +0000 (+0200)
Subject: run-program leaked a pipe per call
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d3ff5f451a5eb5730fb175e48b01235198aa7d58;p=sbcl.git

run-program leaked a pipe per call

  exec-failure detection neglected to close the other side of the pipe.
---

diff --git a/src/runtime/run-program.c b/src/runtime/run-program.c
index 4e6f829..00692b7 100644
--- a/src/runtime/run-program.c
+++ b/src/runtime/run-program.c
@@ -138,6 +138,7 @@ int spawn(char *program, char *argv[], int sin, int sout, int serr,
                     p += n;
                 }
             }
+            close(channel[0]);
             if (child_errno) {
                 waitpid(pid, NULL, 0);
                 /* Our convention to tell Lisp that it was the exec that