diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-03-08 09:00:11 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-03-08 09:00:11 (GMT) |
commit | 5c3fdea6d8c78852aab5bfa588ec6109c1af4b8e (patch) | |
tree | d43b1f8a0cd72a03761c3f12ca74d33ceedfd26a /library/http/http.tcl | |
parent | 3bd31001dbb0fd516a23f830c89492e2a9c8f83d (diff) | |
parent | 4b85ca90cba7edb9a10caead17ffa8d407e1e2b3 (diff) | |
download | tcl-5c3fdea6d8c78852aab5bfa588ec6109c1af4b8e.zip tcl-5c3fdea6d8c78852aab5bfa588ec6109c1af4b8e.tar.gz tcl-5c3fdea6d8c78852aab5bfa588ec6109c1af4b8e.tar.bz2 |
merge from trunk
Diffstat (limited to 'library/http/http.tcl')
-rw-r--r-- | library/http/http.tcl | 6 |
1 files changed, 3 insertions, 3 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 |