summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2012-12-08 17:13:03 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2012-12-08 17:13:03 (GMT)
commit5ab4d052c526754eca52cbec0aea41c6a61d7fb6 (patch)
tree0f791e6a1c31503f425647e6d72c0fd24010d59d /generic
parent8ea32cad84602b02b1eab7b2ca01bf583bd1c9db (diff)
downloadtcl-5ab4d052c526754eca52cbec0aea41c6a61d7fb6.zip
tcl-5ab4d052c526754eca52cbec0aea41c6a61d7fb6.tar.gz
tcl-5ab4d052c526754eca52cbec0aea41c6a61d7fb6.tar.bz2
Fix busyloop at exit under TCL_FINALIZE_ON_EXIT when there are unflushed nonblocking channels. Thanks Miguel for spotting.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIO.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 0cb9fa9..715c1ef 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -2472,7 +2472,7 @@ FlushChannel(
* it's a tty channel (dup'ed underneath)
*/
- if (!GotFlag(statePtr, BG_FLUSH_SCHEDULED)) {
+ if (!GotFlag(statePtr, BG_FLUSH_SCHEDULED) && !TclInExit()) {
SetFlag(statePtr, BG_FLUSH_SCHEDULED);
UpdateInterest(chanPtr);
}