diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-17 20:18:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-17 20:18:43 (GMT) |
| commit | d9174b0f8d27e0972f47612a3200003ecbd9aa90 (patch) | |
| tree | 6441fab2a0c15a2720ee25b96a7ad7eedc7bef91 /generic/tclIO.c | |
| parent | e50b4e4c5965bae47fc77840198c415d83302b44 (diff) | |
| parent | a76f86e56510b6a36c85f5c22968aed705a26470 (diff) | |
| download | tcl-d9174b0f8d27e0972f47612a3200003ecbd9aa90.zip tcl-d9174b0f8d27e0972f47612a3200003ecbd9aa90.tar.gz tcl-d9174b0f8d27e0972f47612a3200003ecbd9aa90.tar.bz2 | |
Merge 9.0. More strict -eofchar parsing
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 2e821a7..23b860a 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -8186,7 +8186,7 @@ Tcl_SetChannelOption( int inValue = (int) argv[0][0]; int outValue = (argc == 2) ? (int) argv[1][0] : 0; - if (inValue & 0x80 || outValue) { + if (inValue & 0x80 || (inValue && argv[0][1]) || outValue) { if (interp) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "bad value for -eofchar: must be non-NUL ASCII" |