This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Correct Unicode 6.1 omission
authorKarl Williamson <public@khwilliamson.com>
Fri, 24 Feb 2012 16:32:58 +0000 (09:32 -0700)
committerKarl Williamson <public@khwilliamson.com>
Fri, 24 Feb 2012 16:50:28 +0000 (09:50 -0700)
Unicode 6.1 erroneously omitted Takri as a script that uses two
characters, and have voted to publish the correction that this patch
makes.  There isn't an official Corrigendum yet.

lib/unicore/mktables

index 6da0063..3c8e4d9 100644 (file)
@@ -11613,6 +11613,10 @@ sub  filter_script_extensions_line {
     # 064B..0655    ; Arab Syrc # Mn  [11] ARABIC FATHATAN..ARABIC HAMZA BELOW
 
     my @fields = split /\s*;\s*/;
     # 064B..0655    ; Arab Syrc # Mn  [11] ARABIC FATHATAN..ARABIC HAMZA BELOW
 
     my @fields = split /\s*;\s*/;
+
+    # This script was erroneously omitted in this Unicode version.
+    $fields[1] .= ' Takr' if $v_version eq v6.1.0 && $fields[0] =~ /^0964/;
+
     my @full_names;
     foreach my $short_name (split " ", $fields[1]) {
         push @full_names, $script->table($short_name)->full_name;
     my @full_names;
     foreach my $short_name (split " ", $fields[1]) {
         push @full_names, $script->table($short_name)->full_name;