Attachment "1710709.patch" to
ticket [1710709fff]
added by
dgp
2007-05-02 03:18:21.
Index: generic/tclCmdMZ.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCmdMZ.c,v
retrieving revision 1.149
diff -u -r1.149 tclCmdMZ.c
--- generic/tclCmdMZ.c 20 Apr 2007 05:51:10 -0000 1.149
+++ generic/tclCmdMZ.c 1 May 2007 20:17:14 -0000
@@ -1887,6 +1887,7 @@
for (i=2 ; i<mapElemc ; i+=2) {
Tcl_DictObjNext(&search, mapElemv+i, mapElemv+i+1, &done);
}
+ Tcl_DictObjDone(&search);
} else {
if (Tcl_ListObjGetElements(interp, objv[objc-2],
&mapElemc, &mapElemv) != TCL_OK) {
