diff options
| author | andreask <andreask> | 2012-03-07 18:50:48 (GMT) |
|---|---|---|
| committer | andreask <andreask> | 2012-03-07 18:50:48 (GMT) |
| commit | 1c622a7ca277c44b6137367b720ed3db61218ca9 (patch) | |
| tree | 8ebf06d8e8ee4bace8541c730b10ef78fd6c0736 /library/http/http.tcl | |
| parent | 15fcf9ba56fbc50d32efcf77d80225232d7718b9 (diff) | |
| download | tcl-1c622a7ca277c44b6137367b720ed3db61218ca9.zip tcl-1c622a7ca277c44b6137367b720ed3db61218ca9.tar.gz tcl-1c622a7ca277c44b6137367b720ed3db61218ca9.tar.bz2 | |
http package. Fix Bug 3498327. Generate upper-case hexadecimal output for compliance with RFC 3986. Bumped version to 2.5.7.
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 bc8ae7f..ceef043 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -22,7 +22,7 @@ package require Tcl 8.4 # Keep this in sync with pkgIndex.tcl and with the install directories # in Makefiles -package provide http 2.5.6 +package provide http 2.5.7 namespace eval http { variable http @@ -44,11 +44,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] } init |