Tk Library Source Code

Artifact [1d9eb9ad70]
Login

Artifact 1d9eb9ad7056f937fd47a273a6c1c5e39af8fe86:

Attachment "patch.txt" to ticket [601257ffff] added by nobody 2002-08-28 19:23:39.
*** mime.tcl.orig       Wed Aug 28 07:25:03 2002
--- mime.tcl    Wed Aug 28 07:55:20 2002
***************
*** 680,685 ****
--- 680,686 ----
              if {$pos > $last} {
          #        error "termination string missing in $state(content)"
                   set line "--$boundary--"
+                  set x [string length $line]
              } else {
                if {[set x [gets $state(fd) line]] < 0} {
                    error "end-of-file encountered while parsing $state(content)"