From f87dbfe42e4103369dd3f77e045ce29843ae2c80 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 23 Apr 2023 08:56:48 +0000
Subject: Backout [3016169b6f], since TIP #657 (Make "-profile strict" the
 default in Tcl 9.0) is not accepted yet. And when it's accepted, this change
 won't be necessary any more.

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

diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 4ab746c..cec6ad3 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -1734,11 +1734,6 @@ 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