summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2012-03-22 08:04:09 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2012-03-22 08:04:09 (GMT)
commit5a62da3750ddfade44c3113b96e1f5c7a0cef1f1 (patch)
tree3191f23b5182cfb0df443c163d472e885e8b378c /generic/tclIO.c
parent4469b8019b142def58d2f77fae3229675667eefe (diff)
downloadtcl-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/tclIO.c')
-rw-r--r--generic/tclIO.c6
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)) {