diff options
| -rw-r--r-- | library/init.tcl | 2 | ||||
| -rw-r--r-- | library/safe.tcl | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/library/init.tcl b/library/init.tcl index a6745ab..81e6243 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -1,4 +1,4 @@ -# init.tcl -- +# init.tcl -- # # Default system startup file for Tcl-based applications. Defines # "unknown" procedure and auto-load facilities. diff --git a/library/safe.tcl b/library/safe.tcl index 71c1e67..9c605f2 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -987,6 +987,10 @@ proc ::safe::AliasSource {child args} { fconfigure $f -encoding $encoding } set contents [read $f] + # See [Bug 1d26e580cf] + if {[string index $contents 0] eq "\uFEFF"} { + set contents [string range $contents 1 end] + } close $f ::interp eval $child [list info script $file] } msg opt] |