diff options
| author | andreask <andreask> | 2012-03-07 18:54:23 (GMT) |
|---|---|---|
| committer | andreask <andreask> | 2012-03-07 18:54:23 (GMT) |
| commit | 5a8bd1ef2aa1ab30fdf8b70ee66ffe8794ef1fec (patch) | |
| tree | 894c75ec44b39e65e403aac87b7bcf5aadabe347 /library | |
| parent | 47bea32e4f38b1cc5278f3224007ebe200878daa (diff) | |
| parent | df914ce1c610e09e5e841572d640696a88972ecd (diff) | |
| download | tcl-5a8bd1ef2aa1ab30fdf8b70ee66ffe8794ef1fec.zip tcl-5a8bd1ef2aa1ab30fdf8b70ee66ffe8794ef1fec.tar.gz tcl-5a8bd1ef2aa1ab30fdf8b70ee66ffe8794ef1fec.tar.bz2 | |
Merged from 8.4 branch -- http package. Fix Bug 3498327. Generate upper-case hexadecimal output for compliance with RFC 3986. Bumped version to 2.7.9.
Diffstat (limited to 'library')
| -rw-r--r-- | library/http/http.tcl | 6 | ||||
| -rw-r--r-- | library/http/pkgIndex.tcl | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index f8ea55f..ce9f634 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -11,7 +11,7 @@ package require Tcl 8.4 # Keep this in sync with pkgIndex.tcl and with the install directories in # Makefiles -package provide http 2.7.8 +package provide http 2.7.9 namespace eval http { # Allow resourcing to not clobber existing data @@ -37,11 +37,11 @@ namespace eval http { for {set i 0} {$i <= 256} {incr i} { set c [format %c $i] if {![string match {[-._~a-zA-Z0-9]} $c]} { - set map($c) %[format %.2x $i] + set map($c) %[format %.2X $i] } } # These are handled specially - set map(\n) %0d%0a + set map(\n) %0D%0A variable formMap [array get map] # Create a map for HTTP/1.1 open sockets diff --git a/library/http/pkgIndex.tcl b/library/http/pkgIndex.tcl index 43b5571..815ac12 100644 --- a/library/http/pkgIndex.tcl +++ b/library/http/pkgIndex.tcl @@ -1,4 +1,4 @@ # Tcl package index file, version 1.1 if {![package vsatisfies [package provide Tcl] 8.4]} {return} -package ifneeded http 2.7.8 [list tclPkgSetup $dir http 2.7.8 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}] +package ifneeded http 2.7.9 [list tclPkgSetup $dir http 2.7.9 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}] |