summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclCmdMZ.c3
2 files changed, 1 insertions, 7 deletions
diff --git a/ChangeLog b/ChangeLog
index 572a3d4..952da2a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,3 @@
-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 e4298fc..0cb172e 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.211 2010/04/06 07:50:45 dkf Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.212 2010/04/06 08:34:52 dkf Exp $
*/
#include "tclInt.h"
@@ -391,7 +391,6 @@ Tcl_RegexpObjCmd(
if (valuePtr == NULL) {
Tcl_AppendResult(interp, "couldn't set variable \"",
TclGetString(objv[i]), "\"", NULL);
- Tcl_DecrRefCount(newPtr);
return TCL_ERROR;
}
}