From e8bc630173b648a777c2661a0b3c5160b2ffb69f Mon Sep 17 00:00:00 2001
From: "donal.k.fellows@manchester.ac.uk" <dkf>
Date: Tue, 6 Apr 2010 07:50:45 +0000
Subject: 	* generic/tclCmdMZ.c (Tcl_RegexpObjCmd): Plug leak of object
 when 	setting a variable fails.

---
 ChangeLog          | 5 +++++
 generic/tclCmdMZ.c | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 952da2a..572a3d4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-06  Donal K. Fellows  <dkf@users.sf.net>
+
+	* generic/tclCmdMZ.c (Tcl_RegexpObjCmd): Plug leak of object when
+	setting a variable fails.
+
 2010-04-05  Alexandre Ferrieux  <ferrieux@users.sourceforge.net>
 
 	TIP #348 IMPLEMENTATION  -  Substituted error stack
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 618bb6b..e4298fc 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -15,7 +15,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.210 2010/03/27 22:40:13 nijtmans Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.211 2010/04/06 07:50:45 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -391,6 +391,7 @@ Tcl_RegexpObjCmd(
 		if (valuePtr == NULL) {
 		    Tcl_AppendResult(interp, "couldn't set variable \"",
 			    TclGetString(objv[i]), "\"", NULL);
+		    Tcl_DecrRefCount(newPtr);
 		    return TCL_ERROR;
 		}
 	    }
-- 
cgit v0.12