[commit: packages/process] master: GH77: fixed bug. (94a2140)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/process

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/94a2140511345df3aab8185fa338bbde03421926/process

>---------------------------------------------------------------

commit 94a2140511345df3aab8185fa338bbde03421926
Author: Tamar Christina <tamar at zhox.com>
Date:   Mon Jan 16 02:39:13 2017 +0000

    GH77: fixed bug.


>---------------------------------------------------------------

94a2140511345df3aab8185fa338bbde03421926
 cbits/runProcess.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/cbits/runProcess.c b/cbits/runProcess.c
index 7ba6a49..d6c26cc 100644
--- a/cbits/runProcess.c
+++ b/cbits/runProcess.c
@@ -685,6 +685,9 @@ runInteractiveProcess (wchar_t *cmd, wchar_t *workingDirectory,
         {
             goto cleanup_err;
         }
+    } else {
+        *hJob      = NULL;
+        *hIOcpPort = NULL;
     }
 
     if (!CreateProcess(NULL, cmd, NULL, NULL, inherit, dwFlags, environment, workingDirectory, &sInfo, &pInfo))