diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-16 14:52:46 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-16 14:52:46 (GMT) |
commit | 85461dc671e51b74fb17b69a207abfedbffc1d91 (patch) | |
tree | dfceab88a11dfd23749b50a658e02ee183038edb /generic/tclIOCmd.c | |
parent | 53a12f1cf62f19f53ef964da17fc300de9e1ecdb (diff) | |
parent | 91a20bc018f04bcf8ce13412ad16cfcbe9e53489 (diff) | |
download | tcl-85461dc671e51b74fb17b69a207abfedbffc1d91.zip tcl-85461dc671e51b74fb17b69a207abfedbffc1d91.tar.gz tcl-85461dc671e51b74fb17b69a207abfedbffc1d91.tar.bz2 |
Merge trunk. bug_0b8c387cf7
Add TCL_EVAL_GLOBAL flag to Tcl_EvalObjEx(), for reason mentioned in [0b8c387cf7].
Diffstat (limited to 'generic/tclIOCmd.c')
-rw-r--r-- | generic/tclIOCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index b7b7b66..de65da5 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -1397,7 +1397,7 @@ AcceptCallbackProc( Tcl_RegisterChannel(NULL, chan); - result = Tcl_EvalObjEx(interp, script, TCL_EVAL_DIRECT); + result = Tcl_EvalObjEx(interp, script, TCL_EVAL_DIRECT|TCL_EVAL_GLOBAL); Tcl_DecrRefCount(script); if (result != TCL_OK) { |