summaryrefslogtreecommitdiffstats
path: root/library/http/http.tcl
diff options
context:
space:
mode:
authorandreask <andreask>2012-03-07 18:54:23 (GMT)
committerandreask <andreask>2012-03-07 18:54:23 (GMT)
commit85723f7753964dfd99076945efd55744ee3e52a2 (patch)
tree894c75ec44b39e65e403aac87b7bcf5aadabe347 /library/http/http.tcl
parent334981d2e58e7f00f9b074b89b22c8df5ae04d68 (diff)
parent1c622a7ca277c44b6137367b720ed3db61218ca9 (diff)
downloadtcl-85723f7753964dfd99076945efd55744ee3e52a2.zip
tcl-85723f7753964dfd99076945efd55744ee3e52a2.tar.gz
tcl-85723f7753964dfd99076945efd55744ee3e52a2.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/http/http.tcl')
-rw-r--r--library/http/http.tcl6
1 files changed, 3 insertions, 3 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