summaryrefslogtreecommitdiffstats
path: root/generic/tclIOUtil.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-20 05:28:59 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-20 05:28:59 (GMT)
commita28b7ede49c7e21c0d7150cca682433e94a78464 (patch)
tree0788fa361fa4f292bdf6f164b932748d96b0b15b /generic/tclIOUtil.c
parent2139c0e39e6fb83eb76edc0088de73b9caa7cdb3 (diff)
parent9e2fa9ea7edc34ebf959378f2bdbe0521bd7d2e4 (diff)
downloadtcl-a28b7ede49c7e21c0d7150cca682433e94a78464.zip
tcl-a28b7ede49c7e21c0d7150cca682433e94a78464.tar.gz
tcl-a28b7ede49c7e21c0d7150cca682433e94a78464.tar.bz2
merge release
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r--generic/tclIOUtil.c2
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