diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-05-31 02:30:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-05-31 02:30:53 (GMT) |
| commit | ea994aa1957bd3faea8f4cdf2ae290d102ae1fe8 (patch) | |
| tree | 3f9b6d9193106dd231d49d362e80218a14e32d8b /unix | |
| parent | d344208a62df4671dac9a66fa4589979bc68d7bb (diff) | |
| download | tcl-ea994aa1957bd3faea8f4cdf2ae290d102ae1fe8.zip tcl-ea994aa1957bd3faea8f4cdf2ae290d102ae1fe8.tar.gz tcl-ea994aa1957bd3faea8f4cdf2ae290d102ae1fe8.tar.bz2 | |
Correct the interest masks in the Tcl_CreateFileHandler() calls in
PipeWatchProc(). When we are interested in both readable and writable
events of a command pipeline channel, we only want the readable from
the read end of the pipe, and the writable from the write end of the pipe.
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclUnixPipe.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index d0a5e53..57be08f 100644 --- a/unix/tclUnixPipe.c +++ b/unix/tclUnixPipe.c @@ -1125,7 +1125,7 @@ PipeWatchProc( if (psPtr->inFile) { newmask = mask & (TCL_READABLE | TCL_EXCEPTION); if (newmask) { - Tcl_CreateFileHandler(GetFd(psPtr->inFile), mask, + Tcl_CreateFileHandler(GetFd(psPtr->inFile), newmask, (Tcl_FileProc *) Tcl_NotifyChannel, (ClientData) psPtr->channel); } else { @@ -1135,7 +1135,7 @@ PipeWatchProc( if (psPtr->outFile) { newmask = mask & (TCL_WRITABLE | TCL_EXCEPTION); if (newmask) { - Tcl_CreateFileHandler(GetFd(psPtr->outFile), mask, + Tcl_CreateFileHandler(GetFd(psPtr->outFile), newmask, (Tcl_FileProc *) Tcl_NotifyChannel, (ClientData) psPtr->channel); } else { |