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 | 401704baeb9fcf2effaf2eea3ef4ab2e44fab76f (patch) | |
tree | dfceab88a11dfd23749b50a658e02ee183038edb /generic/tclIOCmd.c | |
parent | 06ce1bc045777f9ce5b4d555c8d3db4c29b0c5a6 (diff) | |
parent | bf462d250e5858f485f7093e407db767d1f861be (diff) | |
download | tcl-401704baeb9fcf2effaf2eea3ef4ab2e44fab76f.zip tcl-401704baeb9fcf2effaf2eea3ef4ab2e44fab76f.tar.gz tcl-401704baeb9fcf2effaf2eea3ef4ab2e44fab76f.tar.bz2 |
Merge trunk.
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) { |