Artifact
361bbd498d6db1d194545ca844f6cc37fe56c4c4:
Attachment "http.tcl.patch" to
ticket [3599395fff]
added by
sebres
2013-01-07 19:29:35.
Index: http.tcl
===================================================================
--- http.tcl (revision 16)
+++ http.tcl (working copy)
@@ -974,7 +974,7 @@
} elseif {$n == 0} {
# We have now read all headers
# We ignore HTTP/1.1 100 Continue returns. RFC2616 sec 8.2.3
- if {$state(http) == "" || [lindex $state(http) 1] == 100} {
+ if {$state(http) == "" || ([regexp {^\S+\s(\d+)} $state(http) {} x] && $x == 100)} {
return
}
