diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2005-06-22 21:39:01 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2005-06-22 21:39:01 (GMT) |
| commit | b91e3875cce9b06a7dc6435a374ffff17d92fd4f (patch) | |
| tree | 5e8f4821e729679450cb18a4ba72ebf9c7b30e4a /win | |
| parent | d7229892af744003cde6528dd33e3796bb4a6278 (diff) | |
| download | tcl-b91e3875cce9b06a7dc6435a374ffff17d92fd4f.zip tcl-b91e3875cce9b06a7dc6435a374ffff17d92fd4f.tar.gz tcl-b91e3875cce9b06a7dc6435a374ffff17d92fd4f.tar.bz2 | |
bug 1225044
Diffstat (limited to 'win')
| -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 |