diff options
| author | andy <andrew.m.goth@gmail.com> | 2017-08-08 16:39:25 (GMT) |
|---|---|---|
| committer | andy <andrew.m.goth@gmail.com> | 2017-08-08 16:39:25 (GMT) |
| commit | 2f76fb2e0aef75313f844cd7a2b8755b9e593380 (patch) | |
| tree | 6f37521d850c0917bc28bbc2421b9041e2d5a257 | |
| parent | 0ff33edca843c46f97b0ceb14deca3602906eb4f (diff) | |
| parent | 94c0fba63c4bc7a61f181cf02da9042ebf0884a9 (diff) | |
| download | tcl-2f76fb2e0aef75313f844cd7a2b8755b9e593380.zip tcl-2f76fb2e0aef75313f844cd7a2b8755b9e593380.tar.gz tcl-2f76fb2e0aef75313f844cd7a2b8755b9e593380.tar.bz2 | |
Merge trunk
| -rw-r--r-- | generic/tclIOUtil.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 7f27ed8..7e8f023 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -1748,7 +1748,7 @@ Tcl_FSEvalFileEx( * this cross-platform to allow for scripted documents. [Bug: 2040] */ - Tcl_SetChannelOption(interp, chan, "-eofchar", "\32"); + Tcl_SetChannelOption(interp, chan, "-eofchar", "\32 {}"); /* * If the encoding is specified, set it for the channel. Else don't touch @@ -1883,7 +1883,7 @@ TclNREvalFile( * this cross-platform to allow for scripted documents. [Bug: 2040] */ - Tcl_SetChannelOption(interp, chan, "-eofchar", "\32"); + Tcl_SetChannelOption(interp, chan, "-eofchar", "\32 {}"); /* * If the encoding is specified, set it for the channel. Else don't touch |