summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclIO.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 57a934b..ed40e0d 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -535,6 +535,8 @@ TclFinalizeIOSubsystem(void)
* for all data to flush out.
*/
+ TclChannelPreserve((Tcl_Channel)chanPtr);
+
(void) Tcl_SetChannelOption(NULL, (Tcl_Channel) chanPtr,
"-blocking", "on");
@@ -586,6 +588,7 @@ TclFinalizeIOSubsystem(void)
chanPtr->instanceData = NULL;
SetFlag(statePtr, CHANNEL_DEAD);
}
+ TclChannelRelease((Tcl_Channel)chanPtr);
}
}