diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-17 19:46:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-17 19:46:07 (GMT) |
| commit | a76f86e56510b6a36c85f5c22968aed705a26470 (patch) | |
| tree | 15fccd566a59148f8335e0cdcc467aabc327483a /library/safe.tcl | |
| parent | 51448d41677600e1a03ebfc365a2638118af2dfe (diff) | |
| parent | 4656afb575cda58ec7b6ce77f0a96b98173ca36d (diff) | |
| download | tcl-a76f86e56510b6a36c85f5c22968aed705a26470.zip tcl-a76f86e56510b6a36c85f5c22968aed705a26470.tar.gz tcl-a76f86e56510b6a36c85f5c22968aed705a26470.tar.bz2 | |
Merge 8.7
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 0cf891e..287ee5c 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -975,7 +975,7 @@ proc ::safe::AliasSource {child args} { set replacementMsg "script error" set code [catch { set f [open $realfile] - fconfigure $f -encoding $encoding -eofchar "\032 {}" + fconfigure $f -encoding $encoding -eofchar "\x1A {}" set contents [read $f] close $f ::interp eval $child [list info script $file] |