Posted to tcl by patthoyts at Wed Oct 13 13:22:07 GMT 2010view pretty

--- tkchat_mjpeg.tcl.orig	Wed Oct 22 13:19:59 2008
+++ tkchat_mjpeg.tcl	Wed Oct 13 14:13:36 2010
@@ -62,6 +62,7 @@
             fconfigure $fd -buffering line -translation crlf
 	    gets $fd line
 	    if {[string match "${boundary}*" $line]} {set state mime; set hdrs {}}
+	    if {[string match "--${boundary}*" $line]} {set state mime; set hdrs {}}
             return [string length $line]
 	}
 	mime {