Tcl Source Code

Artifact b5aa3debd35811cd565fb4ba5da0d64230aae994:

Attachment "tcl-base64-decode.patch" to ticket [3033307fff] added by a_kovalenko 2010-07-23 07:54:42.

---

Index: tclBinary.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBinary.c,v
retrieving revision 1.64
diff -u -r1.64 tclBinary.c
--- tclBinary.c	30 Apr 2010 20:52:51 -0000	1.64
+++ tclBinary.c	23 Jul 2010 00:36:55 -0000
@@ -2710,6 +2710,9 @@
 	*cursor++ = UCHAR((value >> 16) & 0xff);
 	*cursor++ = UCHAR((value >> 8) & 0xff);
 	*cursor++ = UCHAR(value & 0xff);
+	if (!strict)
+	    while (data < dataend && isspace(*data))
+		data++;
     }
     if (cut > size) {
 	cut = size;