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

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