(Fcall_process): Close fd_error if successful.

diff --git a/src/callproc.c b/src/callproc.c
index 5fda6d61b0ae78482bfe7d0335d64ca5d7768539..d9c29a0ba72ba0a3ee984c92e1abe85a78378a0f 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -456,6 +456,8 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
     close (filefd);
     if (fd1 >= 0)
       close (fd1);
+    if (fd_error >= 0)
+      close (fd_error);
   }
 
   if (pid < 0)