summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorandreask <andreask>2012-03-07 18:59:34 (GMT)
committerandreask <andreask>2012-03-07 18:59:34 (GMT)
commit36d2d21ef756fd3321cecf1e7b278ee2d2c8a8dd (patch)
treef4736d7e3dd8e3c53a1c7ddf044f267945c24494 /library
parentab122b015c2810b81d4b677ee1bd956d81b9f506 (diff)
parent85723f7753964dfd99076945efd55744ee3e52a2 (diff)
downloadtcl-36d2d21ef756fd3321cecf1e7b278ee2d2c8a8dd.zip
tcl-36d2d21ef756fd3321cecf1e7b278ee2d2c8a8dd.tar.gz
tcl-36d2d21ef756fd3321cecf1e7b278ee2d2c8a8dd.tar.bz2
Merged from 8.5 branch -- http package. Fix Bug 3498327. Generate upper-case hexadecimal output for compliance with RFC 3986. Bumped version to 2.8.4.
Diffstat (limited to 'library')
-rw-r--r--library/http/http.tcl6
-rw-r--r--library/http/pkgIndex.tcl2
2 files changed, 4 insertions, 4 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl
index 6f0f4ce..b5ce82b 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -11,7 +11,7 @@
package require Tcl 8.6
# Keep this in sync with pkgIndex.tcl and with the install directories in
# Makefiles
-package provide http 2.8.3
+package provide http 2.8.4
namespace eval http {
# Allow resourcing to not clobber existing data
@@ -43,11 +43,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 d89b14b..d51f8a8 100644
--- a/library/http/pkgIndex.tcl
+++ b/library/http/pkgIndex.tcl
@@ -1,2 +1,2 @@
if {![package vsatisfies [package provide Tcl] 8.6]} {return}
-package ifneeded http 2.8.3 [list tclPkgSetup $dir http 2.8.3 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}]
+package ifneeded http 2.8.4 [list tclPkgSetup $dir http 2.8.4 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}]