diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-09-20 05:28:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-09-20 05:28:59 (GMT) |
| commit | a28b7ede49c7e21c0d7150cca682433e94a78464 (patch) | |
| tree | 0788fa361fa4f292bdf6f164b932748d96b0b15b /generic/tclIOUtil.c | |
| parent | 2139c0e39e6fb83eb76edc0088de73b9caa7cdb3 (diff) | |
| parent | 9e2fa9ea7edc34ebf959378f2bdbe0521bd7d2e4 (diff) | |
| download | tcl-a28b7ede49c7e21c0d7150cca682433e94a78464.zip tcl-a28b7ede49c7e21c0d7150cca682433e94a78464.tar.gz tcl-a28b7ede49c7e21c0d7150cca682433e94a78464.tar.bz2 | |
merge release
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 6259216..6332453 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -1944,7 +1944,7 @@ TclNREvalFile( iPtr->evalFlags |= TCL_EVAL_FILE; TclNRAddCallback(interp, EvalFileCallback, oldScriptFile, pathPtr, objPtr, NULL); - return TclNREvalObjEx(interp, objPtr, 0, NULL, INT_MIN); + return TclNREvalObjEx(interp, objPtr, TCL_EVAL_DIRECT, NULL, INT_MIN); } static int |