diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-04-21 09:19:51 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-04-21 09:19:51 (GMT) |
| commit | b794cb03e1ffc8d198a9cd1e0b7d8ae1406b258f (patch) | |
| tree | 63446728c212ab86a81145ee1b222adc0aa72a72 | |
| parent | c091b78af60d2f2f46c162bed19465380cf8d4bf (diff) | |
| download | tcl-b794cb03e1ffc8d198a9cd1e0b7d8ae1406b258f.zip tcl-b794cb03e1ffc8d198a9cd1e0b7d8ae1406b258f.tar.gz tcl-b794cb03e1ffc8d198a9cd1e0b7d8ae1406b258f.tar.bz2 | |
Set the encoding profile to strict in Tcl_FSEvalFileEx().
| -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 f2f91a7..ae44518 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); |