diff options
Diffstat (limited to 'library/safe.tcl')
| -rw-r--r-- | library/safe.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index ab97b8f..fd7bd73 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -1076,7 +1076,7 @@ proc ::safe::AliasSource {child args} { set replacementMsg "script error" set code [catch { set f [open $realfile] - fconfigure $f -encoding $encoding -eofchar "\x1A {}" + fconfigure $f -encoding $encoding -eofchar \x1A set contents [read $f] close $f ::interp eval $child [list info script $file] |