diff options
| -rw-r--r-- | generic/tclIORChan.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 477452b..cebc33f 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -1276,6 +1276,12 @@ ReflectClose( ckfree(tctPtr); ((Channel *)rcPtr->chan)->typePtr = NULL; } + if (rcPtr->readTimer != NULL) { + Tcl_DeleteTimerHandler(rcPtr->readTimer); + } + if (rcPtr->writeTimer != NULL) { + Tcl_DeleteTimerHandler(rcPtr->writeTimer); + } Tcl_EventuallyFree(rcPtr, (Tcl_FreeProc *) FreeReflectedChannel); return (result == TCL_OK) ? EOK : EINVAL; } |