ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/util/gen_uts46data
(Generate patch)

Comparing AnyEvent/util/gen_uts46data (file contents):
Revision 1.7 by root, Tue Jul 30 23:31:56 2013 UTC vs.
Revision 1.8 by root, Sun Apr 24 22:16:28 2016 UTC

… …
6use utf8; 6use utf8;
7no warnings 'utf8'; 7no warnings 'utf8';
8 8
9binmode STDOUT, ":utf8"; 9binmode STDOUT, ":utf8";
10 10
11open my $fh, "GET http://www.unicode.org/Public/idna/6.2.0/IdnaMappingTable.txt |" 11open my $fh, "GET http://www.unicode.org/Public/idna/9.0.0/IdnaMappingTable.txt |"
12 or die; 12 or die;
13 13
14my $valid; 14my $valid;
15my $imap; # index map \x00 char replacement 15my $imap; # index map \x00 char replacement
16 16
… …
31 31
32 my $R1 = chr $r1; 32 my $R1 = chr $r1;
33 my $R2 = chr $r2; 33 my $R2 = chr $r2;
34 34
35 $map = join "", map chr hex, split ' ', $map; 35 $map = join "", map chr hex, split ' ', $map;
36
37 $type = "valid" if $type eq "deviation"; # use non-transitional behaviour for deviation characters
36 38
37 given ($type) { 39 given ($type) {
38 when (/^(?:disallowed|disallowed_STD3_valid|disallowed_STD3_mapped)$/) { 40 when (/^(?:disallowed|disallowed_STD3_valid|disallowed_STD3_mapped)$/) {
39 # nop 41 # nop
40 } 42 }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines