diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2012-12-08 17:13:03 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2012-12-08 17:13:03 (GMT) |
| commit | 5ab4d052c526754eca52cbec0aea41c6a61d7fb6 (patch) | |
| tree | 0f791e6a1c31503f425647e6d72c0fd24010d59d /generic/tclIO.c | |
| parent | 8ea32cad84602b02b1eab7b2ca01bf583bd1c9db (diff) | |
| download | tcl-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/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 2 |
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); } |