diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-09-14 08:59:41 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-09-14 08:59:41 (GMT) |
commit | dc8a74cb4dd9032147ee2106fb16a738e394bc1f (patch) | |
tree | 6e4dd2286a78cbbeb0b4088b0eac6f9a7f4b7694 | |
parent | b1264cd184de3c9ba370ae1e9cb9bb029b12872b (diff) | |
download | tcl-dc8a74cb4dd9032147ee2106fb16a738e394bc1f.zip tcl-dc8a74cb4dd9032147ee2106fb16a738e394bc1f.tar.gz tcl-dc8a74cb4dd9032147ee2106fb16a738e394bc1f.tar.bz2 |
Hm, this check doesn't really add anything.
-rw-r--r-- | generic/tclBinary.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 98a4d31..69f5baf 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2614,12 +2614,6 @@ BinaryEncodeUu( break; case OPT_WRAPCHAR: wrapchar = Tcl_GetStringFromObj(objv[i+1], &wrapcharlen); - if (wrapcharlen < 0 || wrapcharlen > 2) { - Tcl_SetResult(interp, "wrap char out of range", TCL_STATIC); - Tcl_SetErrorCode(interp, "TCL", "BINARY", "ENCODE", - "WRAP_CHAR", NULL); - return TCL_ERROR; - } break; } } |