diff options
| author | andy <andrew.m.goth@gmail.com> | 2017-08-08 16:42:05 (GMT) |
|---|---|---|
| committer | andy <andrew.m.goth@gmail.com> | 2017-08-08 16:42:05 (GMT) |
| commit | af03c7e562cc37087f276fcd7aed692c5537056a (patch) | |
| tree | 931c379dddec9fa722b106dbf2b90d3e0aa8bf26 /generic | |
| parent | c5d2a041f09785727fad67a457ca2b28aecefe82 (diff) | |
| download | tcl-af03c7e562cc37087f276fcd7aed692c5537056a.zip tcl-af03c7e562cc37087f276fcd7aed692c5537056a.tar.gz tcl-af03c7e562cc37087f276fcd7aed692c5537056a.tar.bz2 | |
Cherrypick [527d354828]
Diffstat (limited to 'generic')
| -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 e00b9ac..41e218f 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -1762,7 +1762,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 @@ -1896,7 +1896,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 |