From cee7aab42e96de098d7fab4437ef46fd153d8b70 Mon Sep 17 00:00:00 2001
From: vasiljevic <zv@archiware.com>
Date: Tue, 4 Oct 2005 18:14:14 +0000
Subject: Tcl_ClearChannelHandlers(): bail out early if passed NULL argument

---
 generic/tclTimer.c | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/generic/tclTimer.c b/generic/tclTimer.c
index 0e14f4d..5832382 100644
--- a/generic/tclTimer.c
+++ b/generic/tclTimer.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclTimer.c,v 1.6.2.2 2005/03/23 21:58:17 dgp Exp $
+ * RCS: @(#) $Id: tclTimer.c,v 1.6.2.3 2005/10/04 18:14:14 vasiljevic Exp $
  */
 
 #include "tclInt.h"
@@ -303,9 +303,12 @@ Tcl_DeleteTimerHandler(token)
 				 * Tcl_DeleteTimerHandler. */
 {
     register TimerHandler *timerHandlerPtr, *prevPtr;
-    ThreadSpecificData *tsdPtr;
+    ThreadSpecificData *tsdPtr = InitTimer();
+
+    if (token == NULL) {
+	return;
+    }
 
-    tsdPtr = InitTimer();
     for (timerHandlerPtr = tsdPtr->firstTimerHandlerPtr, prevPtr = NULL;
 	    timerHandlerPtr != NULL; prevPtr = timerHandlerPtr,
 	    timerHandlerPtr = timerHandlerPtr->nextPtr) {
-- 
cgit v0.12