From 787d71bc6d8d517220c6b301345bf816bcecab2f Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sat, 13 Oct 2012 20:26:00 +0000
Subject: Bug 3576509: tcl::Bgerror crashes with invalid arguments

---
 ChangeLog          | 5 +++++
 generic/tclEvent.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index ee36258..ba075d7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-13  Jan Nijtmans  <nijtmans@users.sf.net>
+
+	* generic/tclEvent.c: [Bug 3576509]: tcl::Bgerror crashes with invalid
+	arguments
+
 2012-10-03  Don Porter  <dgp@users.sourceforge.net>
 
 	* generic/tclIO.c:	When checking for std channels being closed,
diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 7daa7bb..1d72a0a 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -309,7 +309,7 @@ TclDefaultBgErrorHandlerObjCmd(
     int objc,			/* Number of arguments. */
     Tcl_Obj *CONST objv[])	/* Argument objects. */
 {
-    Tcl_Obj *keyPtr, *valuePtr;
+    Tcl_Obj *keyPtr, *valuePtr = NULL;
     Tcl_Obj *tempObjv[2];
     int code, level;
     Tcl_InterpState saved;
-- 
cgit v0.12