diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-26 09:36:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-26 09:36:30 (GMT) |
| commit | 837f6c4dc096082d7e645f702f494f8a70a51a32 (patch) | |
| tree | efb5f6ab253b6d4b8d51889b011d87528742b251 /win/tclWinChan.c | |
| parent | d33fc57550e1921bfadb8fe4b90d7e55bf23e6f5 (diff) | |
| parent | 4ee4ed8efe6d1d806989ea477d25fa98a70a51a3 (diff) | |
| download | tcl-837f6c4dc096082d7e645f702f494f8a70a51a32.zip tcl-837f6c4dc096082d7e645f702f494f8a70a51a32.tar.gz tcl-837f6c4dc096082d7e645f702f494f8a70a51a32.tar.bz2 | |
TIP #646: Change -eofchar handling (Tcl 8.7 part)
Diffstat (limited to 'win/tclWinChan.c')
| -rw-r--r-- | win/tclWinChan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinChan.c b/win/tclWinChan.c index 62991fc..166636c 100644 --- a/win/tclWinChan.c +++ b/win/tclWinChan.c @@ -1325,7 +1325,7 @@ TclpGetDefaultStdChannel( */ if (Tcl_SetChannelOption(NULL,channel,"-translation","auto")!=TCL_OK || - Tcl_SetChannelOption(NULL,channel,"-eofchar","\032 {}")!=TCL_OK || + Tcl_SetChannelOption(NULL,channel,"-eofchar","\x1A {}")!=TCL_OK || Tcl_SetChannelOption(NULL,channel,"-buffering",bufMode)!=TCL_OK) { Tcl_Close(NULL, channel); return (Tcl_Channel) NULL; @@ -1402,7 +1402,7 @@ TclWinOpenFileChannel( */ Tcl_SetChannelOption(NULL, infoPtr->channel, "-translation", "auto"); - Tcl_SetChannelOption(NULL, infoPtr->channel, "-eofchar", "\032 {}"); + Tcl_SetChannelOption(NULL, infoPtr->channel, "-eofchar", "\x1A {}"); return infoPtr->channel; } |