diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-23 08:56:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-23 08:56:48 (GMT) |
| commit | f87dbfe42e4103369dd3f77e045ce29843ae2c80 (patch) | |
| tree | 60921652d4b7cb8ea3c00f0942f74be7590a41d0 /generic/tclIOUtil.c | |
| parent | dd36d764b7fdfd04f24104b39a791dcd04404cbd (diff) | |
| download | tcl-f87dbfe42e4103369dd3f77e045ce29843ae2c80.zip tcl-f87dbfe42e4103369dd3f77e045ce29843ae2c80.tar.gz tcl-f87dbfe42e4103369dd3f77e045ce29843ae2c80.tar.bz2 | |
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.
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 5 |
1 files changed, 0 insertions, 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); |