… | … | ||
---|---|---|---|
6 | use utf8; | 6 | use utf8; |
7 | no warnings 'utf8'; | 7 | no warnings 'utf8'; |
8 | 8 | ||
9 | binmode STDOUT, ":utf8"; | 9 | binmode STDOUT, ":utf8"; |
10 | 10 | ||
11 | open my $fh, "GET http://www.unicode.org/Public/idna/6.0.0/IdnaMappingTable.txt |" | 11 | open my $fh, "GET http://www.unicode.org/Public/idna/6.1.0/IdnaMappingTable.txt |" |
12 | or die; | 12 | or die; |
13 | 13 | ||
14 | my $valid; | 14 | my $valid; |
15 | my $imap; # index map \x00 char replacement | 15 | my $imap; # index map \x00 char replacement |
16 | 16 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |