summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-04-06 08:34:52 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-04-06 08:34:52 (GMT)
commitc108d1ac8a23ab5e463372710cbff40fe6047524 (patch)
tree605254432032a139b9b0c91743c4205cd22831db /generic
parent69c7693180940219e1d636ee951cc98cf1ad9686 (diff)
downloadtcl-c108d1ac8a23ab5e463372710cbff40fe6047524.zip
tcl-c108d1ac8a23ab5e463372710cbff40fe6047524.tar.gz
tcl-c108d1ac8a23ab5e463372710cbff40fe6047524.tar.bz2
Undo
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdMZ.c3
1 files changed, 1 insertions, 2 deletions
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;
}
}