Tk Library Source Code: Attachment Details

Overview

Artifact ID:	2e650235debcda9bd04f09a786984a0af5560588
Ticket:	601257ffffffffffffffffffffffffffffffffff
Date:	2002-08-28 19:23:39
User:	nobody
Artifact Attached:	1d9eb9ad7056f937fd47a273a6c1c5e39af8fe86
Filename:	patch.txt
Description:	patch for described problem

Content:

     1
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12
*** 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)"