Set the encoding profile to strict in Tcl_FSEvalFileEx(). This is ind…

…ependent of TIP 657: A script to be evaluated must be properly encoded in any case.
sebres · Apr 23, 2023 · a62d037 · a62d037
1 parent ce214e9
commit a62d037
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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);