diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2012-03-22 08:04:09 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2012-03-22 08:04:09 (GMT) |
| commit | 5a62da3750ddfade44c3113b96e1f5c7a0cef1f1 (patch) | |
| tree | 3191f23b5182cfb0df443c163d472e885e8b378c /generic | |
| parent | 4469b8019b142def58d2f77fae3229675667eefe (diff) | |
| download | tcl-5a62da3750ddfade44c3113b96e1f5c7a0cef1f1.zip tcl-5a62da3750ddfade44c3113b96e1f5c7a0cef1f1.tar.gz tcl-5a62da3750ddfade44c3113b96e1f5c7a0cef1f1.tar.bz2 | |
Take two. Don't forget to apply all patches, even when the phone rings in between.
Diffstat (limited to 'generic')
| -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)) { |