From e688ca4058ce1b5944a984a4db4f655dee4394bb Mon Sep 17 00:00:00 2001
From: Fabrizio Fabbri <fabrizio.fabbri@gmail.com>
Date: Wed, 17 May 2017 21:08:23 +0200
Subject: [PATCH] coverity fix 1435189 Double close

https://scan7.coverity.com/reports.htm#v29378/p15116/fileInstanceId=19259820&defectInstanceId=4445788&mergedDefectId=1435189
---
 src/c/unixsys.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index 70d123301..78f8c883c 100644
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -515,7 +515,7 @@ si_spawn_subprocess(cl_object command, cl_object argv, cl_object environ,
     }
     close(child_stdin);
     close(child_stdout);
-    close(child_stderr);
+    if (!(error == @':output')) close(child_stderr);
 
     if (child_pid < 0) {
       pid = ECL_NIL;