diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-08-02 04:38:36 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-08-02 04:38:36 (GMT) |
| commit | 5dd714df22a0d67d980fa9a81303ad73e6b7341e (patch) | |
| tree | 97462440f4c2007ed1f278b83ac72440eebfc2bc /generic/tclIO.c | |
| parent | edc8b02276e9e0b8e63ad95fb9fc07a6317ce397 (diff) | |
| parent | 8f9cfb8c738c0c8bf202c0e42631c4e7698e5049 (diff) | |
| download | tcl-5dd714df22a0d67d980fa9a81303ad73e6b7341e.zip tcl-5dd714df22a0d67d980fa9a81303ad73e6b7341e.tar.gz tcl-5dd714df22a0d67d980fa9a81303ad73e6b7341e.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclIO.c')
| -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); } } |