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 {