From a331ce2d727b1e7f577c49077938f7fb26f4d084 Mon Sep 17 00:00:00 2001
From: andreas_kupries <akupries@shaw.ca>
Date: Tue, 11 Dec 2001 02:42:41 +0000
Subject: 	* unix/tclUnixPipe.c (TclpCreateProcess): Applied Don Porter's
 	  patch fixing bug #437489.

---
 ChangeLog          | 5 +++++
 unix/tclUnixPipe.c | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 69991a6..9233660 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-10  Andreas Kupries  <andreas_kupries@users.sourceforge.net> 
+
+	* unix/tclUnixPipe.c (TclpCreateProcess): Applied Don Porter's
+	  patch fixing bug #437489.
+
 2001-12-10  Miguel Sofer  <msofer@users.sourceforge.net>
 
 	* generic/tclEvent.c:
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c
index 82f180e..8e6dd03 100644
--- a/unix/tclUnixPipe.c
+++ b/unix/tclUnixPipe.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixPipe.c,v 1.16 2001/10/18 01:01:15 hobbs Exp $
+ * RCS: @(#) $Id: tclUnixPipe.c,v 1.17 2001/12/11 02:42:41 andreas_kupries Exp $
  */
 
 #include "tclInt.h"
@@ -423,7 +423,7 @@ TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile,
 	newArgv[i] = Tcl_UtfToExternalDString(NULL, argv[i], -1, &dsArray[i]);
     }
 
-    joinThisError = (errorFile == outputFile);
+    joinThisError = errorFile && (errorFile == outputFile);
     pid = fork();
     if (pid == 0) {
 	fd = GetFd(errPipeOut);
-- 
cgit v0.12