From a0465a4be2fa1aa32512bfe1671d7bd50754031a Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Wed, 24 Apr 2019 04:04:46 +0000
Subject: Add missed timer cleanup in tclIORChan.c/ReflectClose.

---
 generic/tclIORChan.c | 6 ++++++
 1 file changed, 6 insertions(+)

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;
 }
-- 
cgit v0.12