summaryrefslogtreecommitdiffstats
path: root/generic
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 /generic
parent7b471897528b88e318d8e33ab1aafa4648aeea20 (diff)
downloadtcl-7955c2b2b7e55460c32f8248fd3bf70b6615cb70.zip
tcl-7955c2b2b7e55460c32f8248fd3bf70b6615cb70.tar.gz
tcl-7955c2b2b7e55460c32f8248fd3bf70b6615cb70.tar.bz2
Fixed object leak
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdMZ.c3
1 files changed, 2 insertions, 1 deletions
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;
}
}