diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-31 10:30:27 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-31 10:30:27 (GMT) |
commit | 2d5ec98631b0b439d67d7c83423e214891a2f121 (patch) | |
tree | 63aab31c9586ff103ad553d809359883adb65eb4 /generic | |
parent | 4258dcc3acd1ffc9d3dec78cb9eef89ace9ac7f5 (diff) | |
download | tcl-2d5ec98631b0b439d67d7c83423e214891a2f121.zip tcl-2d5ec98631b0b439d67d7c83423e214891a2f121.tar.gz tcl-2d5ec98631b0b439d67d7c83423e214891a2f121.tar.bz2 |
Other suggested solution for [b8e82d293b]
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclBinary.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 3575bce..33b1e3e 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2639,13 +2639,14 @@ BinaryEncodeUu( &lineLength) != TCL_OK) { return TCL_ERROR; } - if (lineLength < 3 || lineLength > 85) { + if (lineLength < 5 || lineLength > 85) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "line length out of range", -1)); Tcl_SetErrorCode(interp, "TCL", "BINARY", "ENCODE", "LINE_LENGTH", NULL); return TCL_ERROR; } + lineLength = ((lineLength - 1) & -4) + 1; /* 5, 9, 13 ... */ break; case OPT_WRAPCHAR: wrapchar = Tcl_GetByteArrayFromObj(objv[i + 1], &wrapcharlen); |