Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | [Bug 3599395]: http assumes status line is a proper tcl list. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f4f88c291edfdbb8612ab1c889bbe4b1 |
| User & Date: | jan.nijtmans 2013-01-09 14:07:08 |
Context
|
2013-01-10
| ||
| 18:17 | fix off-by-one error introduced in bd7d7a2061 check-in: 6547cc9e7b user: mig tags: trunk | |
| 10:04 | merge trunk check-in: 6ea214ccfe user: jan.nijtmans tags: novem | |
| 09:23 | Implement TCL_INIT_CREATE_UTF8/TCL_INIT_CREATE_UNICODE check-in: 80facf4d91 user: jan.nijtmans tags: initsubsystems | |
|
2013-01-09
| ||
| 14:07 | [Bug 3599395]: http assumes status line is a proper tcl list. check-in: f4f88c291e user: jan.nijtmans tags: trunk | |
| 14:00 | [Bug 3599395]: http assumes status line is a proper tcl list. Bump http package to 2.7.11. check-in: 3de56e8ad0 user: jan.nijtmans tags: core-8-5-branch | |
|
2013-01-08
| ||
| 13:03 | $builddir is a local variable check-in: d433d96843 user: jan.nijtmans tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 | 2013-01-08 Jan Nijtmans <[email protected]> * win/tclWinFile.c: [Bug 3092089]: [file normalize] can remove path components. [Bug 3587096] win vista/7: "can't find init.tcl" when | > > > > > | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 2013-01-09 Jan Nijtmans <[email protected]> * library/http/http.tcl: [Bug 3599395]: http assumes status line is a proper tcl list. 2013-01-08 Jan Nijtmans <[email protected]> * win/tclWinFile.c: [Bug 3092089]: [file normalize] can remove path components. [Bug 3587096] win vista/7: "can't find init.tcl" when called via junction without folder list access. 2013-01-07 Jan Nijtmans <[email protected]> * generic/tclOOStubLib.c: Restrict the stub library to only use * generic/tclTomMathStubLib.c: Tcl_PkgRequireEx, Tcl_ResetResult and Tcl_AppendResult, not any other function. This puts least restrictions on eventual Tcl 9 stubs re-organization, and it |
| ︙ | ︙ |
Changes to library/http/http.tcl.
| ︙ | ︙ | |||
977 978 979 980 981 982 983 |
}
} elseif {$state(state) eq "header"} {
if {[catch {gets $sock line} n]} {
return [Finish $token $n]
} elseif {$n == 0} {
# We have now read all headers
# We ignore HTTP/1.1 100 Continue returns. RFC2616 sec 8.2.3
| | | 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 |
}
} elseif {$state(state) eq "header"} {
if {[catch {gets $sock line} n]} {
return [Finish $token $n]
} 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) == "" || ([regexp {^\S+\s(\d+)} $state(http) {} x] && $x == 100)} {
return
}
set state(state) body
# If doing a HEAD, then we won't get any body
if {$state(-validate)} {
|
| ︙ | ︙ |