From 65c57e8170c646d921d1400c3dcbc04cbd8a3372 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Sat, 28 Mar 2020 18:52:16 +0000
Subject: Make sure maxlen value does not rely on ordering of options.

---
 generic/tclBinary.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index ecd3c6b..93aeee3 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.c
@@ -2517,12 +2517,12 @@ BinaryEncode64(
 	    break;
 	case OPT_WRAPCHAR:
 	    wrapchar = Tcl_GetStringFromObj(objv[i + 1], &wrapcharlen);
-	    if (wrapcharlen == 0) {
-		maxlen = 0;
-	    }
 	    break;
 	}
     }
+    if (wrapcharlen == 0) {
+	maxlen = 0;
+    }
 
     resultObj = Tcl_NewObj();
     data = Tcl_GetByteArrayFromObj(objv[objc - 1], &count);
-- 
cgit v0.12