diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-06 17:12:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-06 17:12:46 (GMT) |
| commit | ac711bcf45a5b5bd09e3102e5ea08f726237212f (patch) | |
| tree | aa1f8b68dd50c5e303d53ca13d43ef7639b4ea95 /generic/tclIOCmd.c | |
| parent | b5f75d3392ae32955aaef38e3d3af58119179a73 (diff) | |
| download | tcl-ac711bcf45a5b5bd09e3102e5ea08f726237212f.zip tcl-ac711bcf45a5b5bd09e3102e5ea08f726237212f.tar.gz tcl-ac711bcf45a5b5bd09e3102e5ea08f726237212f.tar.bz2 | |
protect Tcl_WinUtfToTChar/Tcl_WinTCharToUtf against NULL input values: return empty string in that case.
Add TIP #494-compatible definitions of TCL_IO_FAILURE/TCL_AUTO_LENGTH, and use it in some appropriate places.
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index d38240a..1dd8666 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -991,7 +991,7 @@ Tcl_ExecObjCmd( resultPtr = Tcl_NewObj(); if (Tcl_GetChannelHandle(chan, TCL_READABLE, NULL) == TCL_OK) { - if (Tcl_ReadChars(chan, resultPtr, -1, 0) < 0) { + if (Tcl_ReadChars(chan, resultPtr, -1, 0) == TCL_IO_FAILURE) { /* * TIP #219. * Capture error messages put by the driver into the bypass area |