diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-16 17:56:23 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-16 17:56:23 (GMT) |
commit | 3c0ca659784b51136017dd079a4716fdf2355524 (patch) | |
tree | 82599bcdb2279e53da9d4de2ef91c96fc1b411ee /generic/tclIO.c | |
parent | 7593fce2300c45d321ff47f31909d0fafe03bf68 (diff) | |
download | tcl-3c0ca659784b51136017dd079a4716fdf2355524.zip tcl-3c0ca659784b51136017dd079a4716fdf2355524.tar.gz tcl-3c0ca659784b51136017dd079a4716fdf2355524.tar.bz2 |
Minor change to -eofchar handling
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 6a9c306..32a03b0 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -8269,9 +8269,8 @@ Tcl_SetChannelOption( statePtr->inEofChar = 0; statePtr->outEofChar = 0; } else if (argc == 1 || argc == 2) { - int outIndex = (argc - 1); int inValue = (int) argv[0][0]; - int outValue = (int) argv[outIndex][0]; + int outValue = (argc == 2) ? (int) argv[1][0] : 0; if (inValue & 0x80 || outValue & 0x80) { if (interp) { |