diff options
| author | kennykb <kennykb@noemail.net> | 2005-06-22 21:39:01 (GMT) |
|---|---|---|
| committer | kennykb <kennykb@noemail.net> | 2005-06-22 21:39:01 (GMT) |
| commit | 37b1b856ea28a3623829c5eb82057059ef0505b6 (patch) | |
| tree | 5e8f4821e729679450cb18a4ba72ebf9c7b30e4a /win/tclWinPipe.c | |
| parent | 47c223a22ba05760ef0d79e3ca1d5dde3f6437ea (diff) | |
| download | tcl-37b1b856ea28a3623829c5eb82057059ef0505b6.zip tcl-37b1b856ea28a3623829c5eb82057059ef0505b6.tar.gz tcl-37b1b856ea28a3623829c5eb82057059ef0505b6.tar.bz2 | |
bug 1225044
FossilOrigin-Name: e7ae1a09c06ba97d4e33fdaa7224e9c16646a59f
Diffstat (limited to 'win/tclWinPipe.c')
| -rw-r--r-- | win/tclWinPipe.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index 8782f5e..fc4a3c1 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinPipe.c,v 1.56 2005/06/22 19:48:11 kennykb Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.57 2005/06/22 21:39:01 kennykb Exp $ */ #include "tclWinInt.h" @@ -2068,8 +2068,13 @@ PipeClose2Proc( Tcl_ReapDetachedProcs(); if (pipePtr->errorFile) { - TclpCloseFile(pipePtr->errorFile); + if (TclpCloseFile(pipePtr->errorFile) != 0) { + if ( errorCode == 0 ) { + errorCode = errno; + } + } } + result = 0; } else { /* * Wrap the error file into a channel and give it to the cleanup |