diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-02-14 09:03:49 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-02-14 09:03:49 (GMT) |
| commit | 355793810091ea96c89cee861e47d3e2b81e4bba (patch) | |
| tree | e1df079ed24aefc24c8c1e823d16723772023647 /library/http | |
| parent | ffb8dbaeee4ec56af776d3268065efb96a7611fc (diff) | |
| download | tcl-355793810091ea96c89cee861e47d3e2b81e4bba.zip tcl-355793810091ea96c89cee861e47d3e2b81e4bba.tar.gz tcl-355793810091ea96c89cee861e47d3e2b81e4bba.tar.bz2 | |
more tests, now getting to the IDNA handling
Diffstat (limited to 'library/http')
| -rw-r--r-- | library/http/idna.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/http/idna.tcl b/library/http/idna.tcl index 2b02c33..a73d113 100644 --- a/library/http/idna.tcl +++ b/library/http/idna.tcl @@ -43,7 +43,7 @@ namespace eval ::tcl::idna { set parts {} # Split term from RFC 3490, Sec 3.1 foreach part [split $hostname "\u002E\u3002\uFF0E\uFF61"] { - if {[string match "xn--*" $part]} { + if {[string match -nocase "xn--*" $part]} { set part [punydecode [string range $part 4 end]] } lappend parts $part |