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 | 8a282bbf9ee208530b7824cb872a1041e778001c (patch) | |
| tree | 0f791e6a1c31503f425647e6d72c0fd24010d59d /generic/tclIO.c | |
| parent | 5e55e0d280d0f56d0da60e34df0ebc140c9d8c87 (diff) | |
| download | tcl-8a282bbf9ee208530b7824cb872a1041e778001c.zip tcl-8a282bbf9ee208530b7824cb872a1041e778001c.tar.gz tcl-8a282bbf9ee208530b7824cb872a1041e778001c.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); } |