diff options
author | ferrieux <ferrieux@users.sourceforge.net> | 2014-08-04 14:02:53 (GMT) |
---|---|---|
committer | ferrieux <ferrieux@users.sourceforge.net> | 2014-08-04 14:02:53 (GMT) |
commit | 0233510950d5a8c533104a7f9dfe28f8c08e74a0 (patch) | |
tree | 1ff4f62f9605e178e7c543090196e451cab29cb6 | |
parent | 483ef76a4114d3d190ea82c0cdbf88fdb1b9ee9e (diff) | |
parent | 3260faadc49ded6ca1d4aab4db21b5232cc647ff (diff) | |
download | tcl-0233510950d5a8c533104a7f9dfe28f8c08e74a0.zip tcl-0233510950d5a8c533104a7f9dfe28f8c08e74a0.tar.gz tcl-0233510950d5a8c533104a7f9dfe28f8c08e74a0.tar.bz2 |
merge trunk
-rw-r--r-- | generic/tclIO.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 7381f4d..c142917 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -626,6 +626,7 @@ TclFinalizeIOSubsystem(void) if (active) { + TclChannelPreserve((Tcl_Channel)chanPtr); /* * TIP #398: by default, we no longer set the channel back into * blocking mode. To restore the old blocking behavior, the @@ -684,6 +685,7 @@ TclFinalizeIOSubsystem(void) chanPtr->instanceData = NULL; SetFlag(statePtr, CHANNEL_DEAD); } + TclChannelRelease((Tcl_Channel)chanPtr); } } |