From b794cb03e1ffc8d198a9cd1e0b7d8ae1406b258f Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Fri, 21 Apr 2023 09:19:51 +0000
Subject: Set the encoding profile to strict in Tcl_FSEvalFileEx().

---
 generic/tclIOUtil.c | 5 +++++
 1 file changed, 5 insertions(+)

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);
-- 
cgit v0.12