Attachment "1661637.patch" to
ticket [1661637fff]
added by
dgp
2007-02-17 05:11:57.
Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.258
diff -u -r1.258 tclExecute.c
--- generic/tclExecute.c 8 Dec 2006 18:08:36 -0000 1.258
+++ generic/tclExecute.c 16 Feb 2007 21:35:35 -0000
@@ -922,6 +922,17 @@
int result;
Namespace *namespacePtr;
+ if (objPtr->typePtr == &tclListType) {
+ List *listRepPtr = (List *) objPtr->internalRep.twoPtrValue.ptr1;
+ if ((objPtr->bytes == NULL) || (listRepPtr->canonicalFlag)) {
+ int objc;
+ Tcl_Obj **objv;
+
+ Tcl_ListObjGetElements(NULL, objPtr, &objc, &objv);
+ return Tcl_EvalObjv(interp, objc, objv, /*flags*/ 0);
+ }
+ }
+
/*
* Check that the interpreter is ready to execute scripts
*/
