--- AnyEvent/util/gen_uts46data	2013/07/30 23:31:56	1.7
+++ AnyEvent/util/gen_uts46data	2016/04/24 22:16:28	1.8
@@ -8,7 +8,7 @@
 
 binmode STDOUT, ":utf8";
 
-open my $fh, "GET http://www.unicode.org/Public/idna/6.2.0/IdnaMappingTable.txt |"
+open my $fh, "GET http://www.unicode.org/Public/idna/9.0.0/IdnaMappingTable.txt |"
    or die;
 
 my $valid;
@@ -34,6 +34,8 @@
 
    $map = join "", map chr hex, split ' ', $map;
 
+   $type = "valid" if $type eq "deviation"; # use non-transitional behaviour for deviation characters
+
    given ($type) {
       when (/^(?:disallowed|disallowed_STD3_valid|disallowed_STD3_mapped)$/) {
          # nop