diff options
| -rw-r--r-- | generic/tclIO.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index cf875a8..7888352 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -427,13 +427,9 @@ TclFinalizeIOSubsystem(void) if (active) { /* - * Set the channel back into blocking mode to ensure that we wait - * for all data to flush out. + * TIP #398: we no longer set the channel back into blocking mode */ - (void) Tcl_SetChannelOption(NULL, (Tcl_Channel) chanPtr, - "-blocking", "on"); - if ((chanPtr == (Channel *) tsdPtr->stdinChannel) || (chanPtr == (Channel *) tsdPtr->stdoutChannel) || (chanPtr == (Channel *) tsdPtr->stderrChannel)) { |