diff options
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index cec6ad3..4ab746c 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -1734,6 +1734,11 @@ Tcl_FSEvalFileEx( Tcl_CloseEx(interp,chan,0); return result; } + if (Tcl_SetChannelOption(interp, chan, "-profile", "strict") + != TCL_OK) { + Tcl_CloseEx(interp,chan,0); + return result; + } TclNewObj(objPtr); Tcl_IncrRefCount(objPtr); |