Tk Library Source Code

Artifact b7198b46a0c2fc57ad9aec44e242f075ce245a08:

Attachment "latest.diff" to ticket [631314ffff] added by davidw 2002-10-31 07:43:33.

---

--- mime.tcl	14 Sep 2002 23:39:55 -0000	1.27
+++ mime.tcl	31 Oct 2002 00:40:53 -0000
@@ -706,7 +706,8 @@
 
             set x [string length $line]
         }
-        if {[string last "\r" $line] == [expr {$x-1}]} {
+        if {[string last "\r" $line] == [expr {$x-1}] && $x != 0} {
             set line [string range $line 0 [expr {$x-2}]]
         }