summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tltcl/lib/tcl8.6/safe.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/lib/tcl8.6/safe.tcl')
-rw-r--r--systems/texlive/tlnet/tlpkg/tltcl/lib/tcl8.6/safe.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/lib/tcl8.6/safe.tcl b/systems/texlive/tlnet/tlpkg/tltcl/lib/tcl8.6/safe.tcl
index b9dd18dcbe..59e4c90bb7 100644
--- a/systems/texlive/tlnet/tlpkg/tltcl/lib/tcl8.6/safe.tcl
+++ b/systems/texlive/tlnet/tlpkg/tltcl/lib/tcl8.6/safe.tcl
@@ -131,7 +131,7 @@ proc ::safe::interpConfigure {args} {
[list -accessPath $state(access_path)] \
[list -statics $state(staticsok)] \
[list -nested $state(nestedok)] \
- [list -deleteHook $state(cleanupHook)]]]
+ [list -deleteHook $state(cleanupHook)]]]
}
2 {
# If we have exactly 2 arguments the semantic is a "configure
@@ -982,7 +982,7 @@ proc ::safe::AliasSource {child args} {
set replacementMsg "script error"
set code [catch {
set f [open $realfile]
- fconfigure $f -eofchar \032
+ fconfigure $f -eofchar "\032 {}"
if {$encoding ne ""} {
fconfigure $f -encoding $encoding
}