| … | … | ||
|---|---|---|---|
| 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 |