From d3ff5f451a5eb5730fb175e48b01235198aa7d58 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Wed, 7 Dec 2011 19:48:39 +0200 Subject: [PATCH] run-program leaked a pipe per call exec-failure detection neglected to close the other side of the pipe. --- src/runtime/run-program.c | 1 + 1 file changed, 1 insertion(+) 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 -- 1.7.10.4