diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-11 13:31:52 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-11 13:31:52 (GMT) |
commit | b3f8c269fa4910edabe381bf6ec17ecdb2bb19e1 (patch) | |
tree | bc20b7c23fdcad0b295a54e77534112af0c99668 /win | |
parent | ec626d9a15ab4e8cc45adbe98c750d05aaba7ec6 (diff) | |
parent | c07c2bb91ccfa02ec939148c02317d2e2978a4c2 (diff) | |
download | tcl-b3f8c269fa4910edabe381bf6ec17ecdb2bb19e1.zip tcl-b3f8c269fa4910edabe381bf6ec17ecdb2bb19e1.tar.gz tcl-b3f8c269fa4910edabe381bf6ec17ecdb2bb19e1.tar.bz2 |
Fix [e87000d842]: crash for "fconfigure stdout" in Win32
Diffstat (limited to 'win')
-rw-r--r-- | win/tclWinConsole.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/win/tclWinConsole.c b/win/tclWinConsole.c index 3b8753b..8b1b2da 100644 --- a/win/tclWinConsole.c +++ b/win/tclWinConsole.c @@ -1527,14 +1527,11 @@ ConsoleSetOptionProc( } else { infoPtr->flags |= CONSOLE_RESET; } - return TCL_OK; - } - - if (infoPtr->flags & CONSOLE_READ_OPS) { - return Tcl_BadChannelOption(interp, optionName, "inputmode"); - } else { - return Tcl_BadChannelOption(interp, optionName, ""); + } else if (len > 0) { + return Tcl_BadChannelOption(interp, optionName, + (infoPtr->flags & CONSOLE_READ_OPS) ? "inputmode" : ""); } + return TCL_OK; } /* |