summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvasiljevic <zv@archiware.com>2010-04-06 07:43:51 (GMT)
committervasiljevic <zv@archiware.com>2010-04-06 07:43:51 (GMT)
commit7955c2b2b7e55460c32f8248fd3bf70b6615cb70 (patch)
tree3db9116f6874709e1794bd32e5adf0707fe1791c
parent7b471897528b88e318d8e33ab1aafa4648aeea20 (diff)
downloadtcl-7955c2b2b7e55460c32f8248fd3bf70b6615cb70.zip
tcl-7955c2b2b7e55460c32f8248fd3bf70b6615cb70.tar.gz
tcl-7955c2b2b7e55460c32f8248fd3bf70b6615cb70.tar.bz2
Fixed object leak
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclCmdMZ.c3
2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 43f9f1d..152888d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2010-04-06 Zoran Vasiljevic <vasiljevic@users.sourceforge.net>
+
+ * generic/tclCmdMZ.c: (Tcl_RegexpObjCmd): Fixed object leak.
+
2010-04-03 Zoran Vasiljevic <vasiljevic@users.sourceforge.net>
* generic/tclStringObj.c: (SetStringFromAny): avoid trampling
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 70002b5..8fbd88f 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.163.2.6 2010/02/27 21:25:05 dkf Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.163.2.7 2010/04/06 07:43:52 vasiljevic Exp $
*/
#include "tclInt.h"
@@ -370,6 +370,7 @@ Tcl_RegexpObjCmd(
if (valuePtr == NULL) {
Tcl_AppendResult(interp, "couldn't set variable \"",
TclGetString(objv[i]), "\"", NULL);
+ Tcl_DecrRefCount(newPtr);
return TCL_ERROR;
}
}