summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2008-11-25 22:18:15 (GMT)
committerandreas_kupries <akupries@shaw.ca>2008-11-25 22:18:15 (GMT)
commit2f424655e647b4d30c4ba3440f3e18778ec0964a (patch)
treef6b321890a8a0e6812964e6bd188d7e5e68d1521 /generic
parentd1b599fdf3dea45f15ac51111a2f2888e99da411 (diff)
downloadtcl-2f424655e647b4d30c4ba3440f3e18778ec0964a.zip
tcl-2f424655e647b4d30c4ba3440f3e18778ec0964a.tar.gz
tcl-2f424655e647b4d30c4ba3440f3e18778ec0964a.tar.bz2
* generic/tclIO.c (TclFinalizeIOSubsystem): Applied backport of
Alexandre Ferrieux's patch for [Bug 2270477] to prevent infinite looping during finalization of channels not bound to interpreters.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIO.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index b145d0f..8b7dd2f 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIO.c,v 1.61.2.30 2008/11/23 19:26:09 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.61.2.31 2008/11/25 22:18:16 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -302,8 +302,8 @@ TclFinalizeIOSubsystem(void)
*/
chanPtr->instanceData = NULL;
- statePtr->flags |= CHANNEL_DEAD;
}
+ statePtr->flags |= CHANNEL_DEAD;
}
}