Artifact
8870aecc63032088f37075db7bcc1b70a0685634:
Attachment "uplevel.patch" to
ticket [1973096fff]
added by
msofer
2008-05-26 22:42:29.
Also attachment "uplevel.patch" to
ticket [1972879fff]
added by
msofer
2008-05-26 20:16:25.
Also attachment "uplevel.patch" to
ticket [1972867fff]
added by
msofer
2008-05-26 20:08:44.
Index: generic/tclProc.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclProc.c,v
retrieving revision 1.140
diff -u -r1.140 tclProc.c
--- generic/tclProc.c 27 Apr 2008 22:21:32 -0000 1.140
+++ generic/tclProc.c 26 May 2008 12:55:20 -0000
@@ -908,7 +908,7 @@
*/
if (objc == 1) {
- result = Tcl_EvalObjEx(interp, objv[0], TCL_EVAL_DIRECT);
+ result = Tcl_EvalObjEx(interp, objv[0], 0);
} else {
/*
* More than one argument: concatenate them together with spaces