diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-23 07:24:49 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-23 07:24:49 (GMT) |
| commit | 6f566fc406752600f7ae67df0c7356d987b753fe (patch) | |
| tree | 6fb5f61f31dda4cc65bf9b4b66a9c598995749fe /generic/tclIOUtil.c | |
| parent | c7f27e3c8788c57a0e58d4b31140a4c4652a422f (diff) | |
| parent | 9cd23041f3a73559c43adb6120b1ccdf4bd15604 (diff) | |
| download | tcl-6f566fc406752600f7ae67df0c7356d987b753fe.zip tcl-6f566fc406752600f7ae67df0c7356d987b753fe.tar.gz tcl-6f566fc406752600f7ae67df0c7356d987b753fe.tar.bz2 | |
Merge trunk
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); |