diff options
author | dgp <dgp@users.sourceforge.net> | 2020-04-01 20:20:49 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-04-01 20:20:49 (GMT) |
commit | f8715bf73091ed517d19655b881270ea48af98d0 (patch) | |
tree | 8d34da551b369969871bf65db38b2898431c8936 /generic/tclIO.c | |
parent | 6bce59a2496eec7e11fcf749d32a58d69375c48f (diff) | |
parent | a5117fe2c364b595a7287d6a14bfe5b7b28ec959 (diff) | |
download | tcl-f8715bf73091ed517d19655b881270ea48af98d0.zip tcl-f8715bf73091ed517d19655b881270ea48af98d0.tar.gz tcl-f8715bf73091ed517d19655b881270ea48af98d0.tar.bz2 |
merge 8.7
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 9de2cce..3dd13f6 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -5823,7 +5823,11 @@ DoReadChars( && (statePtr->inputTranslation == TCL_TRANSLATE_LF) && (statePtr->inEofChar == '\0'); - if (appendFlag == 0) { + if (appendFlag) { + if (binaryMode && (NULL == TclGetBytesFromObj(NULL, objPtr, NULL))) { + binaryMode = 0; + } + } else { if (binaryMode) { Tcl_SetByteArrayLength(objPtr, 0); } else { |