diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-08-02 04:29:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-08-02 04:29:41 (GMT) |
| commit | db487f35e3c9f0d1a17c0480582f1b85fac7900f (patch) | |
| tree | bf218c90d8511a3810ed547110cfaa645cce93a8 | |
| parent | 05ebf671c4c783977fe9da5d8782277d0855605b (diff) | |
| parent | 8a0233faa068ffc578838b1715acb2176e3bcb7a (diff) | |
| download | tcl-db487f35e3c9f0d1a17c0480582f1b85fac7900f.zip tcl-db487f35e3c9f0d1a17c0480582f1b85fac7900f.tar.gz tcl-db487f35e3c9f0d1a17c0480582f1b85fac7900f.tar.bz2 | |
merge 8.5
| -rw-r--r-- | generic/tclIO.c | 3 |
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); } } |