Update Locale-Codes to CPAN version 3.38
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 10 May 2016 11:02:32 +0000 (12:02 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 10 May 2016 11:26:15 +0000 (12:26 +0100)
79 files changed:
MANIFEST
Porting/Maintainers.pl
cpan/Locale-Codes/lib/Locale/Codes.pm
cpan/Locale-Codes/lib/Locale/Codes.pod
cpan/Locale-Codes/lib/Locale/Codes/API.pod
cpan/Locale-Codes/lib/Locale/Codes/Changes.pod
cpan/Locale-Codes/lib/Locale/Codes/Constants.pm
cpan/Locale-Codes/lib/Locale/Codes/Country.pm
cpan/Locale-Codes/lib/Locale/Codes/Country.pod
cpan/Locale-Codes/lib/Locale/Codes/Country_Codes.pm
cpan/Locale-Codes/lib/Locale/Codes/Country_Retired.pm
cpan/Locale-Codes/lib/Locale/Codes/Currency.pm
cpan/Locale-Codes/lib/Locale/Codes/Currency.pod
cpan/Locale-Codes/lib/Locale/Codes/Currency_Codes.pm
cpan/Locale-Codes/lib/Locale/Codes/Currency_Retired.pm
cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm
cpan/Locale-Codes/lib/Locale/Codes/LangExt.pod
cpan/Locale-Codes/lib/Locale/Codes/LangExt_Codes.pm
cpan/Locale-Codes/lib/Locale/Codes/LangExt_Retired.pm
cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm
cpan/Locale-Codes/lib/Locale/Codes/LangFam.pod
cpan/Locale-Codes/lib/Locale/Codes/LangFam_Codes.pm
cpan/Locale-Codes/lib/Locale/Codes/LangFam_Retired.pm
cpan/Locale-Codes/lib/Locale/Codes/LangVar.pm
cpan/Locale-Codes/lib/Locale/Codes/LangVar.pod
cpan/Locale-Codes/lib/Locale/Codes/LangVar_Codes.pm
cpan/Locale-Codes/lib/Locale/Codes/LangVar_Retired.pm
cpan/Locale-Codes/lib/Locale/Codes/Language.pm
cpan/Locale-Codes/lib/Locale/Codes/Language.pod
cpan/Locale-Codes/lib/Locale/Codes/Language_Codes.pm
cpan/Locale-Codes/lib/Locale/Codes/Language_Retired.pm
cpan/Locale-Codes/lib/Locale/Codes/Script.pm
cpan/Locale-Codes/lib/Locale/Codes/Script.pod
cpan/Locale-Codes/lib/Locale/Codes/Script_Codes.pm
cpan/Locale-Codes/lib/Locale/Codes/Script_Retired.pm
cpan/Locale-Codes/lib/Locale/Country.pm
cpan/Locale-Codes/lib/Locale/Country.pod
cpan/Locale-Codes/lib/Locale/Currency.pm
cpan/Locale-Codes/lib/Locale/Currency.pod
cpan/Locale-Codes/lib/Locale/Language.pm
cpan/Locale-Codes/lib/Locale/Language.pod
cpan/Locale-Codes/lib/Locale/Script.pm
cpan/Locale-Codes/lib/Locale/Script.pod
cpan/Locale-Codes/t/code2country.t [deleted file]
cpan/Locale-Codes/t/code2country_old.t [deleted file]
cpan/Locale-Codes/t/code2currency.t [deleted file]
cpan/Locale-Codes/t/code2language.t [deleted file]
cpan/Locale-Codes/t/code2script.t [deleted file]
cpan/Locale-Codes/t/country.t
cpan/Locale-Codes/t/country2code.t [deleted file]
cpan/Locale-Codes/t/country2code_old.t [deleted file]
cpan/Locale-Codes/t/country_code2code.t [deleted file]
cpan/Locale-Codes/t/country_code2code_old.t [deleted file]
cpan/Locale-Codes/t/country_old.t
cpan/Locale-Codes/t/currency.t [moved from cpan/Locale-Codes/t/code2langfam.t with 54% similarity]
cpan/Locale-Codes/t/currency2code.t [deleted file]
cpan/Locale-Codes/t/currency2code_old.t [deleted file]
cpan/Locale-Codes/t/currency_old.t [moved from cpan/Locale-Codes/t/code2langext.t with 54% similarity]
cpan/Locale-Codes/t/langext.t [moved from cpan/Locale-Codes/t/code2langvar.t with 54% similarity]
cpan/Locale-Codes/t/langext2code.t [deleted file]
cpan/Locale-Codes/t/langfam.t [moved from cpan/Locale-Codes/t/langfam2code.t with 54% similarity]
cpan/Locale-Codes/t/language.t
cpan/Locale-Codes/t/language2code.t [deleted file]
cpan/Locale-Codes/t/language_old.t
cpan/Locale-Codes/t/langvar.t [new file with mode: 0644]
cpan/Locale-Codes/t/langvar2code.t [deleted file]
cpan/Locale-Codes/t/script.t [new file with mode: 0644]
cpan/Locale-Codes/t/script2code.t [deleted file]
cpan/Locale-Codes/t/script2code_old.t [deleted file]
cpan/Locale-Codes/t/script_old.t [new file with mode: 0644]
cpan/Locale-Codes/t/testfunc.pl
cpan/Locale-Codes/t/vals.pl [new file with mode: 0644]
cpan/Locale-Codes/t/vals_country.pl [new file with mode: 0644]
cpan/Locale-Codes/t/vals_currency.pl [new file with mode: 0644]
cpan/Locale-Codes/t/vals_langext.pl [new file with mode: 0644]
cpan/Locale-Codes/t/vals_langfam.pl [new file with mode: 0644]
cpan/Locale-Codes/t/vals_language.pl [new file with mode: 0644]
cpan/Locale-Codes/t/vals_langvar.pl [new file with mode: 0644]
cpan/Locale-Codes/t/vals_script.pl [new file with mode: 0644]

index e007a0d..4440eb7 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1595,31 +1595,26 @@ cpan/Locale-Codes/lib/Locale/Language.pm        Locale::Codes
 cpan/Locale-Codes/lib/Locale/Language.pod      Locale::Codes documentation
 cpan/Locale-Codes/lib/Locale/Script.pm         Locale::Codes
 cpan/Locale-Codes/lib/Locale/Script.pod                Locale::Codes documentation
-cpan/Locale-Codes/t/code2country_old.t Locale::Codes tests
-cpan/Locale-Codes/t/code2country.t             Locale::Codes tests
-cpan/Locale-Codes/t/code2currency.t            Locale::Codes tests
-cpan/Locale-Codes/t/code2langext.t     Locale::Codes tests
-cpan/Locale-Codes/t/code2langfam.t     Locale::Codes tests
-cpan/Locale-Codes/t/code2language.t            Locale::Codes tests
-cpan/Locale-Codes/t/code2langvar.t     Locale::Codes tests
-cpan/Locale-Codes/t/code2script.t              Locale::Codes tests
-cpan/Locale-Codes/t/country2code_old.t Locale::Codes tests
-cpan/Locale-Codes/t/country2code.t             Locale::Codes tests
-cpan/Locale-Codes/t/country_code2code_old.t    Locale::Codes tests
-cpan/Locale-Codes/t/country_code2code.t                Locale::Codes tests
 cpan/Locale-Codes/t/country_old.t      Locale::Codes tests
 cpan/Locale-Codes/t/country.t                  Locale::Codes tests
-cpan/Locale-Codes/t/currency2code_old.t        Locale::Codes tests
-cpan/Locale-Codes/t/currency2code.t            Locale::Codes tests
-cpan/Locale-Codes/t/langext2code.t     Locale::Codes tests
-cpan/Locale-Codes/t/langfam2code.t     Locale::Codes tests
-cpan/Locale-Codes/t/language2code.t            Locale::Codes tests
+cpan/Locale-Codes/t/currency_old.t
+cpan/Locale-Codes/t/currency.t
+cpan/Locale-Codes/t/langext.t
+cpan/Locale-Codes/t/langfam.t
 cpan/Locale-Codes/t/language_old.t     Locale::Codes tests
 cpan/Locale-Codes/t/language.t                 Locale::Codes tests
-cpan/Locale-Codes/t/langvar2code.t     Locale::Codes tests
-cpan/Locale-Codes/t/script2code_old.t  Locale::Codes tests
-cpan/Locale-Codes/t/script2code.t              Locale::Codes tests
+cpan/Locale-Codes/t/langvar.t
+cpan/Locale-Codes/t/script_old.t
+cpan/Locale-Codes/t/script.t
 cpan/Locale-Codes/t/testfunc.pl                        Locale::Codes tests
+cpan/Locale-Codes/t/vals_country.pl
+cpan/Locale-Codes/t/vals_currency.pl
+cpan/Locale-Codes/t/vals_langext.pl
+cpan/Locale-Codes/t/vals_langfam.pl
+cpan/Locale-Codes/t/vals_language.pl
+cpan/Locale-Codes/t/vals_langvar.pl
+cpan/Locale-Codes/t/vals.pl
+cpan/Locale-Codes/t/vals_script.pl
 cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm      Locale::Simple
 cpan/Locale-Maketext-Simple/t/0-signature.t                    Locale::Simple tests
 cpan/Locale-Maketext-Simple/t/1-basic.t                                Locale::Simple tests
index 5a9478e..e2fae0c 100755 (executable)
@@ -724,7 +724,7 @@ use File::Glob qw(:case);
     },
 
     'Locale-Codes' => {
-        'DISTRIBUTION' => 'SBECK/Locale-Codes-3.37.tar.gz',
+        'DISTRIBUTION' => 'SBECK/Locale-Codes-3.38.tar.gz',
         'FILES'        => q[cpan/Locale-Codes],
         'EXCLUDED'     => [
             qw( README.first
index 118c277..8f74374 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Codes;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -31,7 +31,7 @@ our($VERSION,%Data,%Retired);
 # $Retired{ TYPE }{ CODESET }{ code }{ CODE } = NAME
 #                            { name }{ NAME } = [CODE,NAME]  (the key is lowercase)
 
-$VERSION='3.37';
+$VERSION='3.38';
 
 #=======================================================================
 #
@@ -40,7 +40,7 @@ $VERSION='3.37';
 #=======================================================================
 
 sub _code {
-   return 1  if (@_ > 3);
+   return (1)  if (@_ > 3);
 
    my($type,$code,$codeset) = @_;
    $code = ''  if (! defined $code);
@@ -51,7 +51,7 @@ sub _code {
      if (! defined($codeset)  ||  $codeset eq '');
    $codeset = lc($codeset);
    return (1)  if (! exists $ALL_CODESETS{$type}{'codesets'}{$codeset});
-   return (0,$code,$codeset)  if (! $code);
+   return (0,$code,$codeset)  if ($code eq '');
 
    # Determine the properties of the codeset
 
@@ -104,8 +104,7 @@ sub _code2name {
    $code = $Data{$type}{'codealias'}{$codeset}{$code}
      if (exists $Data{$type}{'codealias'}{$codeset}{$code});
 
-   if (exists $Data{$type}{'code2id'}{$codeset}  &&
-       exists $Data{$type}{'code2id'}{$codeset}{$code}) {
+   if (exists $Data{$type}{'code2id'}{$codeset}{$code}) {
       my ($id,$i) = @{ $Data{$type}{'code2id'}{$codeset}{$code} };
       my $name    = $Data{$type}{'id2names'}{$id}[$i];
       return $name;
@@ -130,7 +129,7 @@ sub _name2code {
    $name                   = lc($name);
 
    my $retired             = 0;
-   if (@args > 0  &&  $args[$#args]  &&  $args[$#args] eq 'retired') {
+   if (@args > 0  &&  $args[$#args] eq 'retired') {
       pop(@args);
       $retired             = 1;
    }
@@ -159,7 +158,22 @@ sub _name2code {
 
 sub _code2code {
    my($type,@args) = @_;
-   (@args == 3) or croak "${type}_code2code() takes 3 arguments!";
+
+   # For tests, we'll ALWAYS have $nowarn
+   my $nowarn   = 0;
+   if (@args) {                                           # uncoverable branch false
+      if ($args[$#args] eq "nowarn") {                    # uncoverable branch false
+         $nowarn      = 1;
+         pop(@args);
+      }
+   }
+
+   if (@args != 3) {
+      if (! $nowarn) {                                    # uncoverable branch true
+         croak "${type}_code2code() takes 3 arguments!";  # uncoverable statement
+      }
+      return undef;
+   }
 
    my($code,$inset,$outset) = @args;
    my($err,$tmp);
@@ -182,7 +196,7 @@ sub _code2code {
 sub _all_codes {
    my($type,@args)         = @_;
    my $retired             = 0;
-   if (@args > 0  &&  $args[$#args]  &&  $args[$#args] eq 'retired') {
+   if (@args > 0  &&  $args[$#args] eq 'retired') {
       pop(@args);
       $retired             = 1;
    }
@@ -190,9 +204,6 @@ sub _all_codes {
    my ($err,$tmp,$codeset) = _code($type,'',@args);
    return ()  if ($err);
 
-   if (! exists $Data{$type}{'code2id'}{$codeset}) {
-      return ();
-   }
    my @codes = keys %{ $Data{$type}{'code2id'}{$codeset} };
    push(@codes,keys %{ $Retired{$type}{$codeset}{'code'} })  if ($retired);
    return (sort @codes);
@@ -207,7 +218,7 @@ sub _all_codes {
 sub _all_names {
    my($type,@args)         = @_;
    my $retired             = 0;
-   if (@args > 0  &&  $args[$#args]  &&  $args[$#args] eq 'retired') {
+   if (@args > 0  &&  $args[$#args] eq 'retired') {
       pop(@args);
       $retired             = 1;
    }
@@ -245,28 +256,35 @@ sub _all_names {
 sub _rename {
    my($type,$code,$new_name,@args) = @_;
 
+   # For tests, we'll ALWAYS have $nowarn
    my $nowarn   = 0;
-   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+   if (@args) {                                           # uncoverable branch false
+      if ($args[$#args] eq "nowarn") {                    # uncoverable branch false
+         $nowarn      = 1;
+         pop(@args);
+      }
+   }
 
    my $codeset  = shift(@args);
    my $err;
    ($err,$code,$codeset) = _code($type,$code,$codeset);
 
    if (! $codeset) {
-      carp "rename_$type(): unknown codeset\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+         carp "rename_$type(): unknown codeset\n";        # uncoverable statement
+      }
       return 0;
    }
 
-   $code = $Data{$type}{'codealias'}{$codeset}{$code}
-     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
-
    # Check that $code exists in the codeset.
 
    my $id;
    if (exists $Data{$type}{'code2id'}{$codeset}{$code}) {
       $id = $Data{$type}{'code2id'}{$codeset}{$code}[0];
    } else {
-      carp "rename_$type(): unknown code: $code\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+         carp "rename_$type(): unknown code: $code\n";    # uncoverable statement
+      }
       return 0;
    }
 
@@ -287,8 +305,11 @@ sub _rename {
       my ($new_id,$i) = @{ $Data{$type}{'alias2id'}{lc($new_name)} };
       if ($new_id != $id) {
          # Case 1
-         carp "rename_$type(): rename to an existing $type not allowed\n"
-           unless ($nowarn);
+         if (! $nowarn) {                                 # uncoverable branch true
+                                                          # uncoverable statement
+            carp "rename_$type(): rename to an existing $type not allowed\n";
+         }
+
          return 0;
       }
 
@@ -321,15 +342,23 @@ sub _rename {
 sub _add_code {
    my($type,$code,$name,@args) = @_;
 
+   # For tests, we'll ALWAYS have $nowarn
    my $nowarn   = 0;
-   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+   if (@args) {                                           # uncoverable branch false
+      if ($args[$#args] eq "nowarn") {                    # uncoverable branch false
+         $nowarn      = 1;
+         pop(@args);
+      }
+   }
 
    my $codeset  = shift(@args);
    my $err;
    ($err,$code,$codeset) = _code($type,$code,$codeset);
 
    if (! $codeset) {
-      carp "add_$type(): unknown codeset\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+         carp "add_$type(): unknown codeset\n";           # uncoverable statement
+      }
       return 0;
    }
 
@@ -337,7 +366,9 @@ sub _add_code {
 
    if (exists $Data{$type}{'code2id'}{$codeset}{$code}  ||
        exists $Data{$type}{'codealias'}{$codeset}{$code}) {
-      carp "add_$type(): code already in use: $code\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+         carp "add_$type(): code already in use: $code\n";# uncoverable statement
+      }
       return 0;
    }
 
@@ -349,7 +380,10 @@ sub _add_code {
    if (exists $Data{$type}{'alias2id'}{lc($name)}) {
       ($id,$i) = @{ $Data{$type}{'alias2id'}{lc($name)} };
       if (exists $Data{$type}{'id2code'}{$codeset}{$id}) {
-         carp "add_$type(): name already in use: $name\n"  unless ($nowarn);
+         if (! $nowarn) {                                 # uncoverable branch true
+                                                          # uncoverable statement
+            carp "add_$type(): name already in use: $name\n";
+         }
          return 0;
       }
 
@@ -379,25 +413,33 @@ sub _add_code {
 sub _delete_code {
    my($type,$code,@args) = @_;
 
+   # For tests, we'll ALWAYS have $nowarn
    my $nowarn   = 0;
-   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+   if (@args) {                                           # uncoverable branch false
+      if ($args[$#args] eq "nowarn") {                    # uncoverable branch false
+         $nowarn      = 1;
+         pop(@args);
+      }
+   }
 
    my $codeset  = shift(@args);
    my $err;
    ($err,$code,$codeset) = _code($type,$code,$codeset);
 
    if (! $codeset) {
-      carp "delete_$type(): unknown codeset\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+         carp "delete_$type(): unknown codeset\n";        # uncoverable statement
+      }
       return 0;
    }
 
-   $code = $Data{$type}{'codealias'}{$codeset}{$code}
-     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
-
    # Check that $code is valid.
 
    if (! exists $Data{$type}{'code2id'}{$codeset}{$code}) {
-      carp "delete_$type(): code does not exist: $code\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "delete_$type(): code does not exist: $code\n";
+      }
       return 0;
    }
 
@@ -439,9 +481,16 @@ sub _delete_code {
 #=======================================================================
 
 sub _add_alias {
-   my($type,$name,$new_name,$nowarn) = @_;
+   my($type,$name,$new_name,@args) = @_;
 
-   $nowarn   = (defined($nowarn)  &&  $nowarn eq "nowarn" ? 1 : 0);
+   # For tests, we'll ALWAYS have $nowarn
+   my $nowarn   = 0;
+   if (@args) {                                           # uncoverable branch false
+      if ($args[$#args] eq "nowarn") {                    # uncoverable branch false
+         $nowarn      = 1;
+         pop(@args);
+      }
+   }
 
    # Check that $name is used and $new_name is new.
 
@@ -449,12 +498,18 @@ sub _add_alias {
    if (exists $Data{$type}{'alias2id'}{lc($name)}) {
       $id = $Data{$type}{'alias2id'}{lc($name)}[0];
    } else {
-      carp "add_${type}_alias(): name does not exist: $name\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "add_${type}_alias(): name does not exist: $name\n";
+      }
       return 0;
    }
 
    if (exists $Data{$type}{'alias2id'}{lc($new_name)}) {
-      carp "add_${type}_alias(): alias already in use: $new_name\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "add_${type}_alias(): alias already in use: $new_name\n";
+      }
       return 0;
    }
 
@@ -480,9 +535,16 @@ sub _add_alias {
 #=======================================================================
 
 sub _delete_alias {
-   my($type,$name,$nowarn) = @_;
+   my($type,$name,@args) = @_;
 
-   $nowarn   = (defined($nowarn)  &&  $nowarn eq "nowarn" ? 1 : 0);
+   # For tests, we'll ALWAYS have $nowarn
+   my $nowarn   = 0;
+   if (@args) {                                           # uncoverable branch false
+      if ($args[$#args] eq "nowarn") {                    # uncoverable branch false
+         $nowarn      = 1;
+         pop(@args);
+      }
+   }
 
    # Check that $name is used.
 
@@ -490,14 +552,19 @@ sub _delete_alias {
    if (exists $Data{$type}{'alias2id'}{lc($name)}) {
       ($id,$i) = @{ $Data{$type}{'alias2id'}{lc($name)} };
    } else {
-      carp "delete_${type}_alias(): name does not exist: $name\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "delete_${type}_alias(): name does not exist: $name\n";
+      }
       return 0;
    }
 
    my $n = $#{ $Data{$type}{'id2names'}{$id} } + 1;
    if ($n == 1) {
-      carp "delete_${type}_alias(): only one name defined (use _delete_${type} instead)\n"
-        unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "delete_${type}_alias(): only one name defined (use _delete_${type} instead)\n";
+      }
       return 0;
    }
 
@@ -511,15 +578,15 @@ sub _delete_alias {
    #   Set to 0   if I = $i
    #   Decrement  if I > $i
 
-   foreach my $codeset (keys %{ $Data{'code2id'} }) {
-      foreach my $code (keys %{ $Data{'code2id'}{$codeset} }) {
-         my($jd,$j) = @{ $Data{'code2id'}{$codeset}{$code} };
+   foreach my $codeset (keys %{ $Data{$type}{'code2id'} }) {
+      foreach my $code (keys %{ $Data{$type}{'code2id'}{$codeset} }) {
+         my($jd,$j) = @{ $Data{$type}{'code2id'}{$codeset}{$code} };
          next  if ($jd ne $id  ||
                    $j < $i);
          if ($i == $j) {
-            $Data{'code2id'}{$codeset}{$code}[1] = 0;
+            $Data{$type}{'code2id'}{$codeset}{$code}[1] = 0;
          } else {
-            $Data{'code2id'}{$codeset}{$code}[1]--;
+            $Data{$type}{'code2id'}{$codeset}{$code}[1]--;
          }
       }
    }
@@ -539,27 +606,35 @@ sub _delete_alias {
 sub _rename_code {
    my($type,$code,$new_code,@args) = @_;
 
+   # For tests, we'll ALWAYS have $nowarn
    my $nowarn   = 0;
-   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+   if (@args) {                                           # uncoverable branch false
+      if ($args[$#args] eq "nowarn") {                    # uncoverable branch false
+         $nowarn      = 1;
+         pop(@args);
+      }
+   }
 
    my $codeset  = shift(@args);
    my $err;
    ($err,$code,$codeset)     = _code($type,$code,$codeset);
-   ($err,$new_code,$codeset) = _code($type,$new_code,$codeset)
-     if (! $err);
 
    if (! $codeset) {
-      carp "rename_$type(): unknown codeset\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+         carp "rename_${type}_code(): unknown codeset\n"; # uncoverable statement
+      }
       return 0;
    }
 
-   $code = $Data{$type}{'codealias'}{$codeset}{$code}
-     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
+   ($err,$new_code,$codeset) = _code($type,$new_code,$codeset);
 
    # Check that $code exists in the codeset.
 
    if (! exists $Data{$type}{'code2id'}{$codeset}{$code}) {
-      carp "rename_$type(): unknown code: $code\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "rename_${type}_code(): unknown code: $code\n";
+      }
       return 0;
    }
 
@@ -586,13 +661,19 @@ sub _rename_code {
 
       } else {
          # Case 2
-         carp "rename_$type(): new code already in use: $new_code\n"  unless ($nowarn);
+         if (! $nowarn) {                                 # uncoverable branch true
+                                                          # uncoverable statement
+            carp "rename_${type}_code(): new code already in use: $new_code\n";
+         }
          return 0;
       }
 
    } elsif (exists $Data{$type}{'code2id'}{$codeset}{$new_code}) {
       # Case 3
-      carp "rename_$type(): new code already in use: $new_code\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "rename_${type}_code(): new code already in use: $new_code\n";
+      }
       return 0;
    }
 
@@ -620,34 +701,46 @@ sub _rename_code {
 sub _add_code_alias {
    my($type,$code,$new_code,@args) = @_;
 
+   # For tests, we'll ALWAYS have $nowarn
    my $nowarn   = 0;
-   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+   if (@args) {                                           # uncoverable branch false
+      if ($args[$#args] eq "nowarn") {                    # uncoverable branch false
+         $nowarn      = 1;
+         pop(@args);
+      }
+   }
 
    my $codeset  = shift(@args);
    my $err;
    ($err,$code,$codeset)     = _code($type,$code,$codeset);
-   ($err,$new_code,$codeset) = _code($type,$new_code,$codeset)
-     if (! $err);
 
    if (! $codeset) {
-      carp "add_${type}_code_alias(): unknown codeset\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "add_${type}_code_alias(): unknown codeset\n";
+      }
       return 0;
    }
 
-   $code = $Data{$type}{'codealias'}{$codeset}{$code}
-     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
+   ($err,$new_code,$codeset) = _code($type,$new_code,$codeset);
 
    # Check that $code exists in the codeset and that $new_code
    # does not exist.
 
    if (! exists $Data{$type}{'code2id'}{$codeset}{$code}) {
-      carp "add_${type}_code_alias(): unknown code: $code\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "add_${type}_code_alias(): unknown code: $code\n";
+      }
       return 0;
    }
 
    if (exists $Data{$type}{'code2id'}{$codeset}{$new_code}  ||
        exists $Data{$type}{'codealias'}{$codeset}{$new_code}) {
-      carp "add_${type}_code_alias(): code already in use: $new_code\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "add_${type}_code_alias(): code already in use: $new_code\n";
+      }
       return 0;
    }
 
@@ -660,7 +753,7 @@ sub _add_code_alias {
 
 #=======================================================================
 #
-# _delete_code_alias ( TYPE,CODE,CODESET )
+# _delete_code_alias ( TYPE,ALIAS,CODESET )
 #
 # Deletes an alias for the code.
 #
@@ -669,22 +762,34 @@ sub _add_code_alias {
 sub _delete_code_alias {
    my($type,$code,@args) = @_;
 
+   # For tests, we'll ALWAYS have $nowarn
    my $nowarn   = 0;
-   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+   if (@args) {                                           # uncoverable branch false
+      if ($args[$#args] eq "nowarn") {                    # uncoverable branch false
+         $nowarn      = 1;
+         pop(@args);
+      }
+   }
 
    my $codeset  = shift(@args);
    my $err;
    ($err,$code,$codeset)     = Locale::Codes::_code($type,$code,$codeset);
 
    if (! $codeset) {
-      carp "delete_${type}_code_alias(): unknown codeset\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "delete_${type}_code_alias(): unknown codeset\n";
+      }
       return 0;
    }
 
    # Check that $code exists in the codeset as an alias.
 
    if (! exists $Data{$type}{'codealias'}{$codeset}{$code}) {
-      carp "delete_${type}_code_alias(): no alias defined: $code\n"  unless ($nowarn);
+      if (! $nowarn) {                                    # uncoverable branch true
+                                                          # uncoverable statement
+         carp "delete_${type}_code_alias(): no alias defined: $code\n";
+      }
       return 0;
    }
 
@@ -704,5 +809,5 @@ sub _delete_code_alias {
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index 106f0ba..1fcd4d1 100644 (file)
@@ -291,7 +291,7 @@ perl problem tracker at:
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001      Michael Hennecke (Locale::Currency)
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index f196461..8ad363e 100644 (file)
@@ -327,7 +327,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 199aa96..c47a00b 100644 (file)
@@ -28,7 +28,18 @@ codes, I will add them to the module and release a new version.
 
 =head1 VERSION 3.39  (planned 2016-06-01; sbeck)
 
-=head1 VERSION 3.38  (planned 2016-03-01; sbeck)
+=head1 VERSION 3.38  (2016-03-02; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Tests reworked>
+
+Improved test suite (and made some changes to Codes.pm) based on Devel::Cover.
+Test suite now has 100% coverage.
+
+=back
 
 =head1 VERSION 3.37  (2015-12-01; sbeck)
 
@@ -772,7 +783,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 =head1 COPYRIGHT
 
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 44e8f6d..89b83cd 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Codes::Constants;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -17,7 +17,7 @@ require Exporter;
 our($VERSION,@ISA,@EXPORT);
 our(%ALL_CODESETS);
 
-$VERSION='3.37';
+$VERSION='3.38';
 @ISA     = qw(Exporter);
 @EXPORT  = qw(LOCALE_CODE_ALPHA_2
               LOCALE_CODE_ALPHA_3
@@ -126,5 +126,5 @@ $ALL_CODESETS{'langfam'} = {
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index a182431..9455d86 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Codes::Country;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -22,7 +22,7 @@ use Locale::Codes::Country_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.37';
+$VERSION='3.38';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2country
                 country2code
@@ -96,5 +96,5 @@ sub delete_country_code_alias {
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index f827732..56f78a9 100644 (file)
@@ -174,7 +174,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 11262e8..6b515f1 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::Country_Codes;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'harvest_data' is run.
-#    Generated on: Tue Dec  1 14:41:05 EST 2015
+#    Generated on: Wed Mar  2 08:57:53 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Data{'country'}{'id'} = '0250';
 
index c07e44a..d073bbe 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::Country_Retired;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'deprecate_codes' is run.
-#    Generated on: Tue Dec  1 14:45:28 EST 2015
+#    Generated on: Wed Mar  2 09:26:23 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Retired{'country'}{'alpha-2'}{'code'} = {
    q(an) => q(Netherlands Antilles),
index 3d1f406..555a7c0 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Codes::Currency;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -22,7 +22,7 @@ use Locale::Codes::Currency_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.37';
+$VERSION='3.38';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2currency
                 currency2code
@@ -94,5 +94,5 @@ sub delete_currency_code_alias {
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index bc5ea0d..60bf9d9 100644 (file)
@@ -83,7 +83,7 @@ This is the set of three-digit numeric codes from ISO 4217.
 
 =item B<Locale::Codes::Currency::add_currency_code_alias(CODE ,NEW_CODE [,CODESET])>
 
-=item B<Locale::Codes::Currency::delete_currency_code_alias( ODE [,CODESET])>
+=item B<Locale::Codes::Currency::delete_currency_code_alias( CODE [,CODESET])>
 
 These routines are all documented in the L<Locale::Codes::API> man page.
 
@@ -118,7 +118,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001      Michael Hennecke
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index d1d39b7..70011a5 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::Currency_Codes;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'harvest_data' is run.
-#    Generated on: Tue Dec  1 14:44:02 EST 2015
+#    Generated on: Wed Mar  2 09:20:52 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Data{'currency'}{'id'} = '0177';
 
@@ -65,7 +65,7 @@ $Locale::Codes::Data{'currency'}{'id2names'} = {
       q(Barbados Dollar),
       ],
    q(0017) => [
-      q(Belarussian Ruble),
+      q(Belarusian Ruble),
       ],
    q(0018) => [
       q(Belize Dollar),
@@ -77,10 +77,10 @@ $Locale::Codes::Data{'currency'}{'id2names'} = {
       q(Bermudian Dollar),
       ],
    q(0021) => [
-      q(Ngultrum),
+      q(Indian Rupee),
       ],
    q(0022) => [
-      q(Indian Rupee),
+      q(Ngultrum),
       ],
    q(0023) => [
       q(Boliviano),
@@ -125,10 +125,10 @@ $Locale::Codes::Data{'currency'}{'id2names'} = {
       q(Cayman Islands Dollar),
       ],
    q(0037) => [
-      q(Unidad de Fomento),
+      q(Chilean Peso),
       ],
    q(0038) => [
-      q(Chilean Peso),
+      q(Unidad de Fomento),
       ],
    q(0039) => [
       q(Yuan Renminbi),
@@ -155,10 +155,10 @@ $Locale::Codes::Data{'currency'}{'id2names'} = {
       q(Kuna),
       ],
    q(0047) => [
-      q(Peso Convertible),
+      q(Cuban Peso),
       ],
    q(0048) => [
-      q(Cuban Peso),
+      q(Peso Convertible),
       ],
    q(0049) => [
       q(Netherlands Antillean Guilder),
@@ -308,7 +308,7 @@ $Locale::Codes::Data{'currency'}{'id2names'} = {
       q(Malagasy Ariary),
       ],
    q(0098) => [
-      q(Kwacha),
+      q(Malawi Kwacha),
       ],
    q(0099) => [
       q(Malaysian Ringgit),
@@ -374,7 +374,7 @@ $Locale::Codes::Data{'currency'}{'id2names'} = {
       q(Guarani),
       ],
    q(0120) => [
-      q(Nuevo Sol),
+      q(Sol),
       ],
    q(0121) => [
       q(Philippine Peso),
@@ -494,10 +494,10 @@ $Locale::Codes::Data{'currency'}{'id2names'} = {
       q(US Dollar (Next day)),
       ],
    q(0160) => [
-      q(Uruguay Peso en Unidades Indexadas (URUIURUI)),
+      q(Peso Uruguayo),
       ],
    q(0161) => [
-      q(Peso Uruguayo),
+      q(Uruguay Peso en Unidades Indexadas (URUIURUI)),
       ],
    q(0162) => [
       q(Uzbekistan Sum),
@@ -599,7 +599,7 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0016),
       q(0),
       ],
-   q(belarussian ruble) => [
+   q(belarusian ruble) => [
       q(0017),
       q(0),
       ],
@@ -676,7 +676,7 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0),
       ],
    q(chilean peso) => [
-      q(0038),
+      q(0037),
       q(0),
       ],
    q(colombian peso) => [
@@ -704,7 +704,7 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0),
       ],
    q(cuban peso) => [
-      q(0048),
+      q(0047),
       q(0),
       ],
    q(czech koruna) => [
@@ -812,7 +812,7 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0),
       ],
    q(indian rupee) => [
-      q(0022),
+      q(0021),
       q(0),
       ],
    q(iranian rial) => [
@@ -851,10 +851,6 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0086),
       q(0),
       ],
-   q(kwacha) => [
-      q(0098),
-      q(0),
-      ],
    q(kwanza) => [
       q(0006),
       q(0),
@@ -903,6 +899,10 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0097),
       q(0),
       ],
+   q(malawi kwacha) => [
+      q(0098),
+      q(0),
+      ],
    q(malaysian ringgit) => [
       q(0099),
       q(0),
@@ -968,7 +968,7 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0),
       ],
    q(ngultrum) => [
-      q(0021),
+      q(0022),
       q(0),
       ],
    q(north korean won) => [
@@ -979,10 +979,6 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0027),
       q(0),
       ],
-   q(nuevo sol) => [
-      q(0120),
-      q(0),
-      ],
    q(ouguiya) => [
       q(0101),
       q(0),
@@ -1004,11 +1000,11 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0),
       ],
    q(peso convertible) => [
-      q(0047),
+      q(0048),
       q(0),
       ],
    q(peso uruguayo) => [
-      q(0161),
+      q(0160),
       q(0),
       ],
    q(philippine peso) => [
@@ -1095,6 +1091,10 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0134),
       q(0),
       ],
+   q(sol) => [
+      q(0120),
+      q(0),
+      ],
    q(solomon islands dollar) => [
       q(0136),
       q(0),
@@ -1188,7 +1188,7 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0),
       ],
    q(unidad de fomento) => [
-      q(0037),
+      q(0038),
       q(0),
       ],
    q(unidad de valor real) => [
@@ -1196,7 +1196,7 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0),
       ],
    q(uruguay peso en unidades indexadas (uruiurui)) => [
-      q(0160),
+      q(0161),
       q(0),
       ],
    q(us dollar) => [
@@ -1344,7 +1344,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(BTN) => [
-         q(0021),
+         q(0022),
          q(0),
          ],
       q(BWP) => [
@@ -1380,11 +1380,11 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(CLF) => [
-         q(0037),
+         q(0038),
          q(0),
          ],
       q(CLP) => [
-         q(0038),
+         q(0037),
          q(0),
          ],
       q(CNY) => [
@@ -1404,11 +1404,11 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(CUC) => [
-         q(0047),
+         q(0048),
          q(0),
          ],
       q(CUP) => [
-         q(0048),
+         q(0047),
          q(0),
          ],
       q(CVE) => [
@@ -1520,7 +1520,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(INR) => [
-         q(0022),
+         q(0021),
          q(0),
          ],
       q(IQD) => [
@@ -1856,11 +1856,11 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(UYI) => [
-         q(0160),
+         q(0161),
          q(0),
          ],
       q(UYU) => [
-         q(0161),
+         q(0160),
          q(0),
          ],
       q(UZS) => [
@@ -2002,7 +2002,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(064) => [
-         q(0021),
+         q(0022),
          q(0),
          ],
       q(068) => [
@@ -2054,7 +2054,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(152) => [
-         q(0038),
+         q(0037),
          q(0),
          ],
       q(156) => [
@@ -2078,7 +2078,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(192) => [
-         q(0048),
+         q(0047),
          q(0),
          ],
       q(203) => [
@@ -2158,7 +2158,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(356) => [
-         q(0022),
+         q(0021),
          q(0),
          ],
       q(360) => [
@@ -2450,7 +2450,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(858) => [
-         q(0161),
+         q(0160),
          q(0),
          ],
       q(860) => [
@@ -2470,7 +2470,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(931) => [
-         q(0047),
+         q(0048),
          q(0),
          ],
       q(932) => [
@@ -2494,7 +2494,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(940) => [
-         q(0160),
+         q(0161),
          q(0),
          ],
       q(941) => [
@@ -2654,7 +2654,7 @@ $Locale::Codes::Data{'currency'}{'code2id'} = {
          q(0),
          ],
       q(990) => [
-         q(0037),
+         q(0038),
          q(0),
          ],
       q(994) => [
@@ -2690,8 +2690,8 @@ $Locale::Codes::Data{'currency'}{'id2code'} = {
       q(0018) => q(BZD),
       q(0019) => q(XOF),
       q(0020) => q(BMD),
-      q(0021) => q(BTN),
-      q(0022) => q(INR),
+      q(0021) => q(INR),
+      q(0022) => q(BTN),
       q(0023) => q(BOB),
       q(0024) => q(BOV),
       q(0025) => q(BAM),
@@ -2706,8 +2706,8 @@ $Locale::Codes::Data{'currency'}{'id2code'} = {
       q(0034) => q(XAF),
       q(0035) => q(CAD),
       q(0036) => q(KYD),
-      q(0037) => q(CLF),
-      q(0038) => q(CLP),
+      q(0037) => q(CLP),
+      q(0038) => q(CLF),
       q(0039) => q(CNY),
       q(0040) => q(COP),
       q(0041) => q(COU),
@@ -2716,8 +2716,8 @@ $Locale::Codes::Data{'currency'}{'id2code'} = {
       q(0044) => q(NZD),
       q(0045) => q(CRC),
       q(0046) => q(HRK),
-      q(0047) => q(CUC),
-      q(0048) => q(CUP),
+      q(0047) => q(CUP),
+      q(0048) => q(CUC),
       q(0049) => q(ANG),
       q(0050) => q(CZK),
       q(0051) => q(DKK),
@@ -2829,8 +2829,8 @@ $Locale::Codes::Data{'currency'}{'id2code'} = {
       q(0157) => q(UAH),
       q(0158) => q(AED),
       q(0159) => q(USN),
-      q(0160) => q(UYI),
-      q(0161) => q(UYU),
+      q(0160) => q(UYU),
+      q(0161) => q(UYI),
       q(0162) => q(UZS),
       q(0163) => q(VUV),
       q(0164) => q(VEF),
@@ -2868,8 +2868,8 @@ $Locale::Codes::Data{'currency'}{'id2code'} = {
       q(0018) => q(084),
       q(0019) => q(952),
       q(0020) => q(060),
-      q(0021) => q(064),
-      q(0022) => q(356),
+      q(0021) => q(356),
+      q(0022) => q(064),
       q(0023) => q(068),
       q(0024) => q(984),
       q(0025) => q(977),
@@ -2884,8 +2884,8 @@ $Locale::Codes::Data{'currency'}{'id2code'} = {
       q(0034) => q(950),
       q(0035) => q(124),
       q(0036) => q(136),
-      q(0037) => q(990),
-      q(0038) => q(152),
+      q(0037) => q(152),
+      q(0038) => q(990),
       q(0039) => q(156),
       q(0040) => q(170),
       q(0041) => q(970),
@@ -2894,8 +2894,8 @@ $Locale::Codes::Data{'currency'}{'id2code'} = {
       q(0044) => q(554),
       q(0045) => q(188),
       q(0046) => q(191),
-      q(0047) => q(931),
-      q(0048) => q(192),
+      q(0047) => q(192),
+      q(0048) => q(931),
       q(0049) => q(532),
       q(0050) => q(203),
       q(0051) => q(208),
@@ -3007,8 +3007,8 @@ $Locale::Codes::Data{'currency'}{'id2code'} = {
       q(0157) => q(980),
       q(0158) => q(784),
       q(0159) => q(997),
-      q(0160) => q(940),
-      q(0161) => q(858),
+      q(0160) => q(858),
+      q(0161) => q(940),
       q(0162) => q(860),
       q(0163) => q(548),
       q(0164) => q(937),
index 483238f..447c3a6 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::Currency_Retired;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'deprecate_codes' is run.
-#    Generated on: Tue Dec  1 14:45:28 EST 2015
+#    Generated on: Wed Mar  2 09:26:23 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Retired{'currency'}{'alpha'}{'code'} = {
    q(ADP) => q(Andorran Peseta),
@@ -78,6 +78,7 @@ $Locale::Codes::Retired{'currency'}{'num'}{'code'} = {
 $Locale::Codes::Retired{'currency'}{'alpha'}{'name'} = {
    q(andorran peseta) => [ q(ADP), q(Andorran Peseta) ],
    q(aruban guilder) => [ q(AWG), q(Aruban Guilder) ],
+   q(belarussian ruble) => [ q(BYR), q(Belarussian Ruble) ],
    q(belgian franc) => [ q(BEF), q(Belgian Franc) ],
    q(bermudian dollar (customarily known as bermuda dollar)) => [ q(BMD), q(Bermudian Dollar (customarily known as Bermuda Dollar)) ],
    q(bolivar) => [ q(VEB), q(Bolivar) ],
@@ -110,6 +111,7 @@ $Locale::Codes::Retired{'currency'}{'alpha'}{'name'} = {
    q(karbovanets) => [ q(UAK), q(Karbovanets) ],
    q(kroon) => [ q(EEK), q(Kroon) ],
    q(kuna) => [ q(HRK), q(Kuna) ],
+   q(kwacha) => [ q(MWK), q(Kwacha) ],
    q(kwanza reajustado) => [ q(AOR), q(Kwanza Reajustado) ],
    q(latvian lats) => [ q(LVL), q(Latvian Lats) ],
    q(leu) => [ q(RON), q(Leu) ],
@@ -130,6 +132,7 @@ $Locale::Codes::Retired{'currency'}{'alpha'}{'name'} = {
    q(new manat) => [ q(TMT), q(New Manat) ],
    q(new romanian leu) => [ q(RON), q(New Romanian Leu) ],
    q(new zaire) => [ q(ZRN), q(New Zaire) ],
+   q(nuevo sol) => [ q(PEN), q(Nuevo Sol) ],
    q(portuguese escudo) => [ q(PTE), q(Portuguese Escudo) ],
    q(saint helena pound) => [ q(SHP), q(Saint Helena Pound) ],
    q(schilling) => [ q(ATS), q(Schilling) ],
@@ -153,16 +156,19 @@ $Locale::Codes::Retired{'currency'}{'alpha'}{'name'} = {
 };
 
 $Locale::Codes::Retired{'currency'}{'num'}{'name'} = {
+   q(belarussian ruble) => [ q(974), q(Belarussian Ruble) ],
    q(bolivar fuerte) => [ q(937), q(Bolivar Fuerte) ],
    q(cape verde escudo) => [ q(132), q(Cape Verde Escudo) ],
    q(cedi) => [ q(936), q(Cedi) ],
    q(croatian kuna) => [ q(191), q(Croatian Kuna) ],
+   q(kwacha) => [ q(454), q(Kwacha) ],
    q(latvian lats) => [ q(428), q(Latvian Lats) ],
    q(leu) => [ q(946), q(Leu) ],
    q(lithuanian litas) => [ q(440), q(Lithuanian Litas) ],
    q(metical) => [ q(943), q(Metical) ],
    q(new manat) => [ q(934), q(New Manat) ],
    q(new romanian leu) => [ q(946), q(New Romanian Leu) ],
+   q(nuevo sol) => [ q(604), q(Nuevo Sol) ],
    q(saint helena pound) => [ q(654), q(Saint Helena Pound) ],
    q(unidades de fomento) => [ q(990), q(Unidades de fomento) ],
    q(us dollar (same day)) => [ q(998), q(US Dollar (Same day)) ],
index 6376da2..bf7d97b 100644 (file)
@@ -1,5 +1,5 @@
 package Locale::Codes::LangExt;
-# Copyright (c) 2011-2015 Sullivan Beck
+# Copyright (c) 2011-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -20,7 +20,7 @@ use Locale::Codes::LangExt_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.37';
+$VERSION='3.38';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2langext
                 langext2code
@@ -91,5 +91,5 @@ sub delete_langext_code_alias {
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index 271a5ac..5d97492 100644 (file)
@@ -108,7 +108,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
 =head1 COPYRIGHT
 
-   Copyright (c) 2011-2015 Sullivan Beck
+   Copyright (c) 2011-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index e2e1834..86c78b1 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::LangExt_Codes;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'harvest_data' is run.
-#    Generated on: Tue Dec  1 14:44:16 EST 2015
+#    Generated on: Wed Mar  2 09:24:09 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Data{'langext'}{'id'} = '0230';
 
index a0ec2d2..c9e0502 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::LangExt_Retired;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'deprecate_codes' is run.
-#    Generated on: Tue Dec  1 14:45:28 EST 2015
+#    Generated on: Wed Mar  2 09:26:23 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Retired{'langext'}{'alpha'}{'code'} = {
    q(yds) => q(Yiddish Sign Language),
index fccec91..b3b96c1 100644 (file)
@@ -1,5 +1,5 @@
 package Locale::Codes::LangFam;
-# Copyright (c) 2011-2015 Sullivan Beck
+# Copyright (c) 2011-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -20,7 +20,7 @@ use Locale::Codes::LangFam_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.37';
+$VERSION='3.38';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2langfam
                 langfam2code
@@ -91,5 +91,5 @@ sub delete_langfam_code_alias {
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index acf71f5..478edb8 100644 (file)
@@ -108,7 +108,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
 =head1 COPYRIGHT
 
-   Copyright (c) 2011-2015 Sullivan Beck
+   Copyright (c) 2011-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 0908061..d1d1946 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::LangFam_Codes;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'harvest_data' is run.
-#    Generated on: Tue Dec  1 14:44:25 EST 2015
+#    Generated on: Wed Mar  2 09:24:18 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Data{'langfam'}{'id'} = '0116';
 
index 2fce421..eddff37 100644 (file)
@@ -10,7 +10,7 @@ use warnings;
 require 5.002;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Retired{'langfam'}{'alpha'}{'code'} = {
 };
index 23b20cf..eb00999 100644 (file)
@@ -1,5 +1,5 @@
 package Locale::Codes::LangVar;
-# Copyright (c) 2011-2015 Sullivan Beck
+# Copyright (c) 2011-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -20,7 +20,7 @@ use Locale::Codes::LangVar_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.37';
+$VERSION='3.38';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2langvar
                 langvar2code
@@ -92,5 +92,5 @@ sub delete_langvar_code_alias {
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index b815e13..6e6b895 100644 (file)
@@ -110,7 +110,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
 =head1 COPYRIGHT
 
-   Copyright (c) 2011-2015 Sullivan Beck
+   Copyright (c) 2011-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 7613dd0..89528c1 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::LangVar_Codes;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'harvest_data' is run.
-#    Generated on: Tue Dec  1 14:44:22 EST 2015
+#    Generated on: Wed Mar  2 09:24:14 EST 2016
 
 use strict;
 require 5.006;
@@ -11,9 +11,9 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
-$Locale::Codes::Data{'langvar'}{'id'} = '0073';
+$Locale::Codes::Data{'langvar'}{'id'} = '0076';
 
 $Locale::Codes::Data{'langvar'}{'id2names'} = {
    q(0001) => [
@@ -63,102 +63,110 @@ $Locale::Codes::Data{'langvar'}{'id2names'} = {
       q(The Barlavento dialect group of Kabuverdianu),
       ],
    q(0016) => [
-      q(Buddhist Hybrid Sanskrit),
+      q(Basic English),
       ],
    q(0017) => [
-      q(Biscayan dialect of Basque),
+      q(Buddhist Hybrid Sanskrit),
       ],
    q(0018) => [
+      q(Biscayan dialect of Basque),
+      ],
+   q(0019) => [
       q(The San Giorgio dialect of Resian),
       q(The Bila dialect of Resian),
       ],
-   q(0019) => [
+   q(0020) => [
       q(Slovene in Bohoric alphabet),
       ],
-   q(0020) => [
+   q(0021) => [
       q(Boontling),
       ],
-   q(0021) => [
+   q(0022) => [
       q(Portuguese-Brazilian Orthographic Convention of 1945 (Convencao Ortografica Luso-Brasileira de 1945)),
       ],
-   q(0022) => [
+   q(0023) => [
+      q(Cornu-English),
+      q(Cornish English),
+      q(Anglo-Cornish),
+      ],
+   q(0024) => [
       q(Slovene in Dajnko alphabet),
       ],
-   q(0023) => [
+   q(0025) => [
       q(Serbian with Ekavian pronunciation),
       ],
-   q(0024) => [
+   q(0026) => [
       q(Early Modern English (1500-1700)),
       ],
-   q(0025) => [
+   q(0027) => [
       q(International Phonetic Alphabet),
       ],
-   q(0026) => [
+   q(0028) => [
       q(Uralic Phonetic Alphabet),
       ],
-   q(0027) => [
+   q(0029) => [
       q(X-SAMPA transcription),
       ],
-   q(0028) => [
+   q(0030) => [
       q(Hepburn romanization),
       ],
-   q(0029) => [
+   q(0031) => [
       q(Norwegian in Hognorsk (High Norwegian) orthography),
       ],
-   q(0030) => [
+   q(0032) => [
       q(Serbian with Ijekavian pronunciation),
       ],
-   q(0031) => [
+   q(0033) => [
       q(Epic Sanskrit),
       ],
-   q(0032) => [
+   q(0034) => [
       q(Jauer dialect of Romansh),
       ],
-   q(0033) => [
+   q(0035) => [
       q(Jyutping Cantonese Romanization),
       ],
-   q(0034) => [
+   q(0036) => [
       q(Common Cornish orthography of Revived Cornish),
       ],
-   q(0035) => [
+   q(0037) => [
       q(The Kociewie dialect of Polish),
       ],
-   q(0036) => [
+   q(0038) => [
       q(Standard Cornish orthography of Revived Cornish),
       q(Kernowek Standard),
       ],
-   q(0037) => [
+   q(0039) => [
       q(Classical Sanskrit),
       ],
-   q(0038) => [
+   q(0040) => [
       q(The Lipovaz dialect of Resian),
       q(The Lipovec dialect of Resian),
       ],
-   q(0039) => [
+   q(0041) => [
       q(Post-1917 Russian orthography),
       ],
-   q(0040) => [
+   q(0042) => [
       q(Slovene in Metelko alphabet),
       ],
-   q(0041) => [
+   q(0043) => [
       q(Monotonic Greek),
       ],
-   q(0042) => [
+   q(0044) => [
       q(Ndyuka dialect),
       q(Aukan dialect),
       ],
-   q(0043) => [
+   q(0045) => [
       q(Natisone dialect),
       q(Nadiza dialect),
       ],
-   q(0044) => [
+   q(0046) => [
       q(Newfoundland English),
       ],
-   q(0045) => [
+   q(0047) => [
       q(The Gniva dialect of Resian),
       q(The Njiva dialect of Resian),
       ],
-   q(0046) => [
+   q(0048) => [
       q(Volapuk nulik),
       q(Volapuk perevidol),
       q(Volapuk nuladik),
@@ -167,89 +175,92 @@ $Locale::Codes::Data{'langvar'}{'id2names'} = {
       q(Revised Volapuk),
       q(Modern Volapuk),
       ],
-   q(0047) => [
+   q(0049) => [
       q(The Oseacco dialect of Resian),
       q(The Osojane dialect of Resian),
       ],
-   q(0048) => [
+   q(0050) => [
       q(Oxford English Dictionary spelling),
       ],
-   q(0049) => [
+   q(0051) => [
       q(Pamaka dialect),
       ],
-   q(0050) => [
+   q(0052) => [
       q(Petrine orthography),
       ],
-   q(0051) => [
+   q(0053) => [
       q(Pinyin romanization),
       ],
-   q(0052) => [
+   q(0054) => [
       q(Polytonic Greek),
       ],
-   q(0053) => [
+   q(0055) => [
       q(Puter idiom of Romansh),
       ],
-   q(0054) => [
+   q(0056) => [
       q(Volapuk rigik),
       q(Schleyer's Volapuk),
       q(Original Volapuk),
       q(Classic Volapuk),
       ],
-   q(0055) => [
+   q(0057) => [
       q(Resian),
       q(Resianic),
       q(Rezijan),
       ],
-   q(0056) => [
+   q(0058) => [
       q(Rumantsch Grischun),
       ],
-   q(0057) => [
+   q(0059) => [
       q(Scottish Standard English),
       ],
-   q(0058) => [
+   q(0060) => [
       q(Scouse),
       ],
-   q(0059) => [
+   q(0061) => [
+      q(Simplified form),
+      ],
+   q(0062) => [
       q(The Stolvizza dialect of Resian),
       q(The Solbica dialect of Resian),
       ],
-   q(0060) => [
+   q(0063) => [
       q(The Sotavento dialect group of Kabuverdianu),
       ],
-   q(0061) => [
+   q(0064) => [
       q(Surmiran idiom of Romansh),
       ],
-   q(0062) => [
+   q(0065) => [
       q(Sursilvan idiom of Romansh),
       ],
-   q(0063) => [
+   q(0066) => [
       q(Sutsilvan idiom of Romansh),
       ],
-   q(0064) => [
+   q(0067) => [
       q(Belarusian in Taraskievica orthography),
       ],
-   q(0065) => [
+   q(0068) => [
       q(Unified Cornish orthography of Revived Cornish),
       ],
-   q(0066) => [
+   q(0069) => [
       q(Unified Cornish Revised orthography of Revived Cornish),
       ],
-   q(0067) => [
+   q(0070) => [
       q(Ulster dialect of Scots),
       ],
-   q(0068) => [
+   q(0071) => [
       q(Unifon phonetic alphabet),
       ],
-   q(0069) => [
+   q(0072) => [
       q(Vedic Sanskrit),
       ],
-   q(0070) => [
+   q(0073) => [
       q(Valencian),
       ],
-   q(0071) => [
+   q(0074) => [
       q(Vallader idiom of Romansh),
       ],
-   q(0072) => [
+   q(0075) => [
       q(Wade-Giles romanization),
       ],
 };
@@ -267,16 +278,24 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0009),
       q(0),
       ],
+   q(anglo-cornish) => [
+      q(0023),
+      q(2),
+      ],
    q(aukan dialect) => [
-      q(0042),
+      q(0044),
       q(1),
       ],
+   q(basic english) => [
+      q(0016),
+      q(0),
+      ],
    q(belarusian in taraskievica orthography) => [
-      q(0064),
+      q(0067),
       q(0),
       ],
    q(biscayan dialect of basque) => [
-      q(0017),
+      q(0018),
       q(0),
       ],
    q(boni dialect) => [
@@ -284,31 +303,39 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(1),
       ],
    q(boontling) => [
-      q(0020),
+      q(0021),
       q(0),
       ],
    q(buddhist hybrid sanskrit) => [
-      q(0016),
+      q(0017),
       q(0),
       ],
    q(classic volapuk) => [
-      q(0054),
+      q(0056),
       q(3),
       ],
    q(classical sanskrit) => [
-      q(0037),
+      q(0039),
       q(0),
       ],
    q(common cornish orthography of revived cornish) => [
-      q(0034),
+      q(0036),
+      q(0),
+      ],
+   q(cornish english) => [
+      q(0023),
+      q(1),
+      ],
+   q(cornu-english) => [
+      q(0023),
       q(0),
       ],
    q(de jong's volapuk) => [
-      q(0046),
+      q(0048),
       q(3),
       ],
    q(early modern english (1500-1700)) => [
-      q(0024),
+      q(0026),
       q(0),
       ],
    q(early modern french) => [
@@ -320,7 +347,7 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(epic sanskrit) => [
-      q(0031),
+      q(0033),
       q(0),
       ],
    q(german orthography of 1996) => [
@@ -328,23 +355,23 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(hepburn romanization) => [
-      q(0028),
+      q(0030),
       q(0),
       ],
    q(international phonetic alphabet) => [
-      q(0025),
+      q(0027),
       q(0),
       ],
    q(jauer dialect of romansh) => [
-      q(0032),
+      q(0034),
       q(0),
       ],
    q(jyutping cantonese romanization) => [
-      q(0033),
+      q(0035),
       q(0),
       ],
    q(kernowek standard) => [
-      q(0036),
+      q(0038),
       q(1),
       ],
    q(late middle french (to 1606)) => [
@@ -352,39 +379,39 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(modern volapuk) => [
-      q(0046),
+      q(0048),
       q(6),
       ],
    q(monotonic greek) => [
-      q(0041),
+      q(0043),
       q(0),
       ],
    q(nadiza dialect) => [
-      q(0043),
+      q(0045),
       q(1),
       ],
    q(natisone dialect) => [
-      q(0043),
+      q(0045),
       q(0),
       ],
    q(ndyuka dialect) => [
-      q(0042),
+      q(0044),
       q(0),
       ],
    q(new volapuk) => [
-      q(0046),
+      q(0048),
       q(4),
       ],
    q(newfoundland english) => [
-      q(0044),
+      q(0046),
       q(0),
       ],
    q(norwegian in hognorsk (high norwegian) orthography) => [
-      q(0029),
+      q(0031),
       q(0),
       ],
    q(original volapuk) => [
-      q(0054),
+      q(0056),
       q(2),
       ],
    q(orthographic formulation of 1943 - official in brazil (formulario ortografico de 1943 - oficial no brasil)) => [
@@ -392,23 +419,23 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(oxford english dictionary spelling) => [
-      q(0048),
+      q(0050),
       q(0),
       ],
    q(pamaka dialect) => [
-      q(0049),
+      q(0051),
       q(0),
       ],
    q(petrine orthography) => [
-      q(0050),
+      q(0052),
       q(0),
       ],
    q(pinyin romanization) => [
-      q(0051),
+      q(0053),
       q(0),
       ],
    q(polytonic greek) => [
-      q(0052),
+      q(0054),
       q(0),
       ],
    q(portuguese language orthographic agreement of 1990 (acordo ortografico da lingua portuguesa de 1990)) => [
@@ -416,71 +443,75 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(portuguese-brazilian orthographic convention of 1945 (convencao ortografica luso-brasileira de 1945)) => [
-      q(0021),
+      q(0022),
       q(0),
       ],
    q(post-1917 russian orthography) => [
-      q(0039),
+      q(0041),
       q(0),
       ],
    q(puter idiom of romansh) => [
-      q(0053),
+      q(0055),
       q(0),
       ],
    q(resian) => [
-      q(0055),
+      q(0057),
       q(0),
       ],
    q(resianic) => [
-      q(0055),
+      q(0057),
       q(1),
       ],
    q(revised volapuk) => [
-      q(0046),
+      q(0048),
       q(5),
       ],
    q(rezijan) => [
-      q(0055),
+      q(0057),
       q(2),
       ],
    q(rumantsch grischun) => [
-      q(0056),
+      q(0058),
       q(0),
       ],
    q(schleyer's volapuk) => [
-      q(0054),
+      q(0056),
       q(1),
       ],
    q(scottish standard english) => [
-      q(0057),
+      q(0059),
       q(0),
       ],
    q(scouse) => [
-      q(0058),
+      q(0060),
       q(0),
       ],
    q(serbian with ekavian pronunciation) => [
-      q(0023),
+      q(0025),
       q(0),
       ],
    q(serbian with ijekavian pronunciation) => [
-      q(0030),
+      q(0032),
+      q(0),
+      ],
+   q(simplified form) => [
+      q(0061),
       q(0),
       ],
    q(slovene in bohoric alphabet) => [
-      q(0019),
+      q(0020),
       q(0),
       ],
    q(slovene in dajnko alphabet) => [
-      q(0022),
+      q(0024),
       q(0),
       ],
    q(slovene in metelko alphabet) => [
-      q(0040),
+      q(0042),
       q(0),
       ],
    q(standard cornish orthography of revived cornish) => [
-      q(0036),
+      q(0038),
       q(0),
       ],
    q(standardized resian orthography) => [
@@ -488,15 +519,15 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(surmiran idiom of romansh) => [
-      q(0061),
+      q(0064),
       q(0),
       ],
    q(sursilvan idiom of romansh) => [
-      q(0062),
+      q(0065),
       q(0),
       ],
    q(sutsilvan idiom of romansh) => [
-      q(0063),
+      q(0066),
       q(0),
       ],
    q(the balanka dialect of anii) => [
@@ -508,51 +539,51 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(the bila dialect of resian) => [
-      q(0018),
+      q(0019),
       q(1),
       ],
    q(the gniva dialect of resian) => [
-      q(0045),
+      q(0047),
       q(0),
       ],
    q(the kociewie dialect of polish) => [
-      q(0035),
+      q(0037),
       q(0),
       ],
    q(the lipovaz dialect of resian) => [
-      q(0038),
+      q(0040),
       q(0),
       ],
    q(the lipovec dialect of resian) => [
-      q(0038),
+      q(0040),
       q(1),
       ],
    q(the njiva dialect of resian) => [
-      q(0045),
+      q(0047),
       q(1),
       ],
    q(the oseacco dialect of resian) => [
-      q(0047),
+      q(0049),
       q(0),
       ],
    q(the osojane dialect of resian) => [
-      q(0047),
+      q(0049),
       q(1),
       ],
    q(the san giorgio dialect of resian) => [
-      q(0018),
+      q(0019),
       q(0),
       ],
    q(the solbica dialect of resian) => [
-      q(0059),
+      q(0062),
       q(1),
       ],
    q(the sotavento dialect group of kabuverdianu) => [
-      q(0060),
+      q(0063),
       q(0),
       ],
    q(the stolvizza dialect of resian) => [
-      q(0059),
+      q(0062),
       q(0),
       ],
    q(traditional german orthography) => [
@@ -560,15 +591,15 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(ulster dialect of scots) => [
-      q(0067),
+      q(0070),
       q(0),
       ],
    q(unified cornish orthography of revived cornish) => [
-      q(0065),
+      q(0068),
       q(0),
       ],
    q(unified cornish revised orthography of revived cornish) => [
-      q(0066),
+      q(0069),
       q(0),
       ],
    q(unified turkic latin alphabet (historical)) => [
@@ -576,43 +607,43 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(unifon phonetic alphabet) => [
-      q(0068),
+      q(0071),
       q(0),
       ],
    q(uralic phonetic alphabet) => [
-      q(0026),
+      q(0028),
       q(0),
       ],
    q(valencian) => [
-      q(0070),
+      q(0073),
       q(0),
       ],
    q(vallader idiom of romansh) => [
-      q(0071),
+      q(0074),
       q(0),
       ],
    q(vedic sanskrit) => [
-      q(0069),
+      q(0072),
       q(0),
       ],
    q(volapuk nuladik) => [
-      q(0046),
+      q(0048),
       q(2),
       ],
    q(volapuk nulik) => [
-      q(0046),
+      q(0048),
       q(0),
       ],
    q(volapuk perevidol) => [
-      q(0046),
+      q(0048),
       q(1),
       ],
    q(volapuk rigik) => [
-      q(0054),
+      q(0056),
       q(0),
       ],
    q(wade-giles romanization) => [
-      q(0072),
+      q(0075),
       q(0),
       ],
    q(western armenian) => [
@@ -620,7 +651,7 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(x-sampa transcription) => [
-      q(0027),
+      q(0029),
       q(0),
       ],
 };
@@ -687,234 +718,246 @@ $Locale::Codes::Data{'langvar'}{'code2id'} = {
          q(0015),
          q(0),
          ],
-      q(bauddha) => [
+      q(basiceng) => [
          q(0016),
          q(0),
          ],
-      q(biscayan) => [
+      q(bauddha) => [
          q(0017),
          q(0),
          ],
-      q(biske) => [
+      q(biscayan) => [
          q(0018),
          q(0),
          ],
-      q(bohoric) => [
+      q(biske) => [
          q(0019),
          q(0),
          ],
-      q(boont) => [
+      q(bohoric) => [
          q(0020),
          q(0),
          ],
-      q(colb1945) => [
+      q(boont) => [
          q(0021),
          q(0),
          ],
-      q(dajnko) => [
+      q(colb1945) => [
          q(0022),
          q(0),
          ],
-      q(ekavsk) => [
+      q(cornu) => [
          q(0023),
          q(0),
          ],
-      q(emodeng) => [
+      q(dajnko) => [
          q(0024),
          q(0),
          ],
-      q(fonipa) => [
+      q(ekavsk) => [
          q(0025),
          q(0),
          ],
-      q(fonupa) => [
+      q(emodeng) => [
          q(0026),
          q(0),
          ],
-      q(fonxsamp) => [
+      q(fonipa) => [
          q(0027),
          q(0),
          ],
-      q(hepburn) => [
+      q(fonupa) => [
          q(0028),
          q(0),
          ],
-      q(hognorsk) => [
+      q(fonxsamp) => [
          q(0029),
          q(0),
          ],
-      q(ijekavsk) => [
+      q(hepburn) => [
          q(0030),
          q(0),
          ],
-      q(itihasa) => [
+      q(hognorsk) => [
          q(0031),
          q(0),
          ],
-      q(jauer) => [
+      q(ijekavsk) => [
          q(0032),
          q(0),
          ],
-      q(jyutping) => [
+      q(itihasa) => [
          q(0033),
          q(0),
          ],
-      q(kkcor) => [
+      q(jauer) => [
          q(0034),
          q(0),
          ],
-      q(kociewie) => [
+      q(jyutping) => [
          q(0035),
          q(0),
          ],
-      q(kscor) => [
+      q(kkcor) => [
          q(0036),
          q(0),
          ],
-      q(laukika) => [
+      q(kociewie) => [
          q(0037),
          q(0),
          ],
-      q(lipaw) => [
+      q(kscor) => [
          q(0038),
          q(0),
          ],
-      q(luna1918) => [
+      q(laukika) => [
          q(0039),
          q(0),
          ],
-      q(metelko) => [
+      q(lipaw) => [
          q(0040),
          q(0),
          ],
-      q(monoton) => [
+      q(luna1918) => [
          q(0041),
          q(0),
          ],
-      q(ndyuka) => [
+      q(metelko) => [
          q(0042),
          q(0),
          ],
-      q(nedis) => [
+      q(monoton) => [
          q(0043),
          q(0),
          ],
-      q(newfound) => [
+      q(ndyuka) => [
          q(0044),
          q(0),
          ],
-      q(njiva) => [
+      q(nedis) => [
          q(0045),
          q(0),
          ],
-      q(nulik) => [
+      q(newfound) => [
          q(0046),
          q(0),
          ],
-      q(osojs) => [
+      q(njiva) => [
          q(0047),
          q(0),
          ],
-      q(oxendict) => [
+      q(nulik) => [
          q(0048),
          q(0),
          ],
-      q(pamaka) => [
+      q(osojs) => [
          q(0049),
          q(0),
          ],
-      q(petr1708) => [
+      q(oxendict) => [
          q(0050),
          q(0),
          ],
-      q(pinyin) => [
+      q(pamaka) => [
          q(0051),
          q(0),
          ],
-      q(polyton) => [
+      q(petr1708) => [
          q(0052),
          q(0),
          ],
-      q(puter) => [
+      q(pinyin) => [
          q(0053),
          q(0),
          ],
-      q(rigik) => [
+      q(polyton) => [
          q(0054),
          q(0),
          ],
-      q(rozaj) => [
+      q(puter) => [
          q(0055),
          q(0),
          ],
-      q(rumgr) => [
+      q(rigik) => [
          q(0056),
          q(0),
          ],
-      q(scotland) => [
+      q(rozaj) => [
          q(0057),
          q(0),
          ],
-      q(scouse) => [
+      q(rumgr) => [
          q(0058),
          q(0),
          ],
-      q(solba) => [
+      q(scotland) => [
          q(0059),
          q(0),
          ],
-      q(sotav) => [
+      q(scouse) => [
          q(0060),
          q(0),
          ],
-      q(surmiran) => [
+      q(simple) => [
          q(0061),
          q(0),
          ],
-      q(sursilv) => [
+      q(solba) => [
          q(0062),
          q(0),
          ],
-      q(sutsilv) => [
+      q(sotav) => [
          q(0063),
          q(0),
          ],
-      q(tarask) => [
+      q(surmiran) => [
          q(0064),
          q(0),
          ],
-      q(uccor) => [
+      q(sursilv) => [
          q(0065),
          q(0),
          ],
-      q(ucrcor) => [
+      q(sutsilv) => [
          q(0066),
          q(0),
          ],
-      q(ulster) => [
+      q(tarask) => [
          q(0067),
          q(0),
          ],
-      q(unifon) => [
+      q(uccor) => [
          q(0068),
          q(0),
          ],
-      q(vaidika) => [
+      q(ucrcor) => [
          q(0069),
          q(0),
          ],
-      q(valencia) => [
+      q(ulster) => [
          q(0070),
          q(0),
          ],
-      q(vallader) => [
+      q(unifon) => [
          q(0071),
          q(0),
          ],
-      q(wadegile) => [
+      q(vaidika) => [
          q(0072),
          q(0),
          ],
+      q(valencia) => [
+         q(0073),
+         q(0),
+         ],
+      q(vallader) => [
+         q(0074),
+         q(0),
+         ],
+      q(wadegile) => [
+         q(0075),
+         q(0),
+         ],
       },
 };
 
@@ -935,63 +978,66 @@ $Locale::Codes::Data{'langvar'}{'id2code'} = {
       q(0013) => q(baku1926),
       q(0014) => q(balanka),
       q(0015) => q(barla),
-      q(0016) => q(bauddha),
-      q(0017) => q(biscayan),
-      q(0018) => q(biske),
-      q(0019) => q(bohoric),
-      q(0020) => q(boont),
-      q(0021) => q(colb1945),
-      q(0022) => q(dajnko),
-      q(0023) => q(ekavsk),
-      q(0024) => q(emodeng),
-      q(0025) => q(fonipa),
-      q(0026) => q(fonupa),
-      q(0027) => q(fonxsamp),
-      q(0028) => q(hepburn),
-      q(0029) => q(hognorsk),
-      q(0030) => q(ijekavsk),
-      q(0031) => q(itihasa),
-      q(0032) => q(jauer),
-      q(0033) => q(jyutping),
-      q(0034) => q(kkcor),
-      q(0035) => q(kociewie),
-      q(0036) => q(kscor),
-      q(0037) => q(laukika),
-      q(0038) => q(lipaw),
-      q(0039) => q(luna1918),
-      q(0040) => q(metelko),
-      q(0041) => q(monoton),
-      q(0042) => q(ndyuka),
-      q(0043) => q(nedis),
-      q(0044) => q(newfound),
-      q(0045) => q(njiva),
-      q(0046) => q(nulik),
-      q(0047) => q(osojs),
-      q(0048) => q(oxendict),
-      q(0049) => q(pamaka),
-      q(0050) => q(petr1708),
-      q(0051) => q(pinyin),
-      q(0052) => q(polyton),
-      q(0053) => q(puter),
-      q(0054) => q(rigik),
-      q(0055) => q(rozaj),
-      q(0056) => q(rumgr),
-      q(0057) => q(scotland),
-      q(0058) => q(scouse),
-      q(0059) => q(solba),
-      q(0060) => q(sotav),
-      q(0061) => q(surmiran),
-      q(0062) => q(sursilv),
-      q(0063) => q(sutsilv),
-      q(0064) => q(tarask),
-      q(0065) => q(uccor),
-      q(0066) => q(ucrcor),
-      q(0067) => q(ulster),
-      q(0068) => q(unifon),
-      q(0069) => q(vaidika),
-      q(0070) => q(valencia),
-      q(0071) => q(vallader),
-      q(0072) => q(wadegile),
+      q(0016) => q(basiceng),
+      q(0017) => q(bauddha),
+      q(0018) => q(biscayan),
+      q(0019) => q(biske),
+      q(0020) => q(bohoric),
+      q(0021) => q(boont),
+      q(0022) => q(colb1945),
+      q(0023) => q(cornu),
+      q(0024) => q(dajnko),
+      q(0025) => q(ekavsk),
+      q(0026) => q(emodeng),
+      q(0027) => q(fonipa),
+      q(0028) => q(fonupa),
+      q(0029) => q(fonxsamp),
+      q(0030) => q(hepburn),
+      q(0031) => q(hognorsk),
+      q(0032) => q(ijekavsk),
+      q(0033) => q(itihasa),
+      q(0034) => q(jauer),
+      q(0035) => q(jyutping),
+      q(0036) => q(kkcor),
+      q(0037) => q(kociewie),
+      q(0038) => q(kscor),
+      q(0039) => q(laukika),
+      q(0040) => q(lipaw),
+      q(0041) => q(luna1918),
+      q(0042) => q(metelko),
+      q(0043) => q(monoton),
+      q(0044) => q(ndyuka),
+      q(0045) => q(nedis),
+      q(0046) => q(newfound),
+      q(0047) => q(njiva),
+      q(0048) => q(nulik),
+      q(0049) => q(osojs),
+      q(0050) => q(oxendict),
+      q(0051) => q(pamaka),
+      q(0052) => q(petr1708),
+      q(0053) => q(pinyin),
+      q(0054) => q(polyton),
+      q(0055) => q(puter),
+      q(0056) => q(rigik),
+      q(0057) => q(rozaj),
+      q(0058) => q(rumgr),
+      q(0059) => q(scotland),
+      q(0060) => q(scouse),
+      q(0061) => q(simple),
+      q(0062) => q(solba),
+      q(0063) => q(sotav),
+      q(0064) => q(surmiran),
+      q(0065) => q(sursilv),
+      q(0066) => q(sutsilv),
+      q(0067) => q(tarask),
+      q(0068) => q(uccor),
+      q(0069) => q(ucrcor),
+      q(0070) => q(ulster),
+      q(0071) => q(unifon),
+      q(0072) => q(vaidika),
+      q(0073) => q(valencia),
+      q(0074) => q(vallader),
+      q(0075) => q(wadegile),
       },
 };
 
index 3ebef84..1a7ff1c 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::LangVar_Retired;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'deprecate_codes' is run.
-#    Generated on: Tue Dec  1 14:45:28 EST 2015
+#    Generated on: Wed Mar  2 09:26:23 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Retired{'langvar'}{'alpha'}{'code'} = {
 };
index 4109d6c..5838107 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Codes::Language;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -22,7 +22,7 @@ use Locale::Codes::Language_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.37';
+$VERSION='3.38';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2language
                 language2code
@@ -95,5 +95,5 @@ sub delete_language_code_alias {
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index 123d2a8..42ebe3a 100644 (file)
@@ -129,7 +129,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 51abf1b..13f8bfe 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::Language_Codes;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'harvest_data' is run.
-#    Generated on: Tue Dec  1 14:41:14 EST 2015
+#    Generated on: Wed Mar  2 08:58:07 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Data{'language'}{'id'} = '7976';
 
index 98908dd..c3c8699 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::Language_Retired;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'deprecate_codes' is run.
-#    Generated on: Tue Dec  1 14:45:28 EST 2015
+#    Generated on: Wed Mar  2 09:26:23 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Retired{'language'}{'alpha-2'}{'code'} = {
    q(in) => q(Indonesian),
index b188cf0..c174397 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Codes::Script;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -22,7 +22,7 @@ use Locale::Codes::Script_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.37';
+$VERSION='3.38';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2script
                 script2code
@@ -94,5 +94,5 @@ sub delete_script_code_alias {
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index e4e1d40..be91f18 100644 (file)
@@ -123,7 +123,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 451a4e4..f0d4766 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::Script_Codes;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'harvest_data' is run.
-#    Generated on: Tue Dec  1 14:44:11 EST 2015
+#    Generated on: Wed Mar  2 09:24:01 EST 2016
 
 use strict;
 require 5.006;
@@ -11,9 +11,9 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
-$Locale::Codes::Data{'script'}{'id'} = '0175';
+$Locale::Codes::Data{'script'}{'id'} = '0180';
 
 $Locale::Codes::Data{'script'}{'id2names'} = {
    q(0001) => [
@@ -168,459 +168,478 @@ $Locale::Codes::Data{'script'}{'id2names'} = {
       q(Gurmukhi),
       ],
    q(0048) => [
+      q(Han with Bopomofo (alias for Han + Bopomofo)),
+      ],
+   q(0049) => [
       q(Hangul (Hangul, Hangeul)),
       q(Hangul),
       q(Hangeul),
       ],
-   q(0049) => [
+   q(0050) => [
       q(Han (Hanzi, Kanji, Hanja)),
       q(Han),
       q(Hanzi),
       q(Kanji),
       q(Hanja),
       ],
-   q(0050) => [
+   q(0051) => [
       q(Hanunoo (Hanunoo)),
       q(Hanunoo),
       ],
-   q(0051) => [
+   q(0052) => [
       q(Han (Simplified variant)),
       ],
-   q(0052) => [
+   q(0053) => [
       q(Han (Traditional variant)),
       ],
-   q(0053) => [
+   q(0054) => [
       q(Hatran),
       ],
-   q(0054) => [
+   q(0055) => [
       q(Hebrew),
       ],
-   q(0055) => [
+   q(0056) => [
       q(Hiragana),
       ],
-   q(0056) => [
+   q(0057) => [
       q(Anatolian Hieroglyphs (Luwian Hieroglyphs, Hittite Hieroglyphs)),
       q(Anatolian Hieroglyphs),
       q(Luwian Hieroglyphs),
       q(Hittite Hieroglyphs),
       ],
-   q(0057) => [
+   q(0058) => [
       q(Pahawh Hmong),
       ],
-   q(0058) => [
+   q(0059) => [
       q(Japanese syllabaries (alias for Hiragana + Katakana)),
       ],
-   q(0059) => [
+   q(0060) => [
       q(Old Hungarian (Hungarian Runic)),
       q(Old Hungarian),
       q(Hungarian Runic),
       ],
-   q(0060) => [
+   q(0061) => [
       q(Indus (Harappan)),
       q(Indus),
       q(Harappan),
       ],
-   q(0061) => [
+   q(0062) => [
       q(Old Italic (Etruscan, Oscan, etc.)),
       ],
-   q(0062) => [
+   q(0063) => [
+      q(Jamo (alias for Jamo subset of Hangul)),
+      ],
+   q(0064) => [
       q(Javanese),
       ],
-   q(0063) => [
+   q(0065) => [
       q(Japanese (alias for Han + Hiragana + Katakana)),
       ],
-   q(0064) => [
+   q(0066) => [
       q(Jurchen),
       ],
-   q(0065) => [
+   q(0067) => [
       q(Kayah Li),
       ],
-   q(0066) => [
+   q(0068) => [
       q(Katakana),
       ],
-   q(0067) => [
+   q(0069) => [
       q(Kharoshthi),
       ],
-   q(0068) => [
+   q(0070) => [
       q(Khmer),
       ],
-   q(0069) => [
+   q(0071) => [
       q(Khojki),
       ],
-   q(0070) => [
+   q(0072) => [
       q(Khitan large script),
       ],
-   q(0071) => [
+   q(0073) => [
       q(Khitan small script),
       ],
-   q(0072) => [
+   q(0074) => [
       q(Kannada),
       ],
-   q(0073) => [
+   q(0075) => [
       q(Korean (alias for Hangul + Han)),
       ],
-   q(0074) => [
+   q(0076) => [
       q(Kpelle),
       ],
-   q(0075) => [
+   q(0077) => [
       q(Kaithi),
       ],
-   q(0076) => [
+   q(0078) => [
       q(Tai Tham (Lanna)),
       q(Tai Tham),
       q(Lanna),
       ],
-   q(0077) => [
+   q(0079) => [
       q(Lao),
       ],
-   q(0078) => [
+   q(0080) => [
       q(Latin (Fraktur variant)),
       ],
-   q(0079) => [
+   q(0081) => [
       q(Latin (Gaelic variant)),
       ],
-   q(0080) => [
+   q(0082) => [
       q(Latin),
       ],
-   q(0081) => [
+   q(0083) => [
       q(Leke),
       ],
-   q(0082) => [
+   q(0084) => [
       q(Lepcha (Rong)),
       q(Lepcha),
       q(Rong),
       ],
-   q(0083) => [
+   q(0085) => [
       q(Limbu),
       ],
-   q(0084) => [
+   q(0086) => [
       q(Linear A),
       ],
-   q(0085) => [
+   q(0087) => [
       q(Linear B),
       ],
-   q(0086) => [
+   q(0088) => [
       q(Lisu (Fraser)),
       q(Lisu),
       q(Fraser),
       ],
-   q(0087) => [
+   q(0089) => [
       q(Loma),
       ],
-   q(0088) => [
+   q(0090) => [
       q(Lycian),
       ],
-   q(0089) => [
+   q(0091) => [
       q(Lydian),
       ],
-   q(0090) => [
+   q(0092) => [
       q(Mahajani),
       ],
-   q(0091) => [
+   q(0093) => [
       q(Mandaic, Mandaean),
       q(Mandaic),
       q(Mandaean),
       ],
-   q(0092) => [
+   q(0094) => [
       q(Manichaean),
       ],
-   q(0093) => [
+   q(0095) => [
       q(Marchen),
       ],
-   q(0094) => [
+   q(0096) => [
       q(Mayan hieroglyphs),
       ],
-   q(0095) => [
+   q(0097) => [
       q(Mende Kikakui),
       ],
-   q(0096) => [
+   q(0098) => [
       q(Meroitic Cursive),
       ],
-   q(0097) => [
+   q(0099) => [
       q(Meroitic Hieroglyphs),
       ],
-   q(0098) => [
+   q(0100) => [
       q(Malayalam),
       ],
-   q(0099) => [
+   q(0101) => [
       q(Modi, Modi),
       q(Modi),
       ],
-   q(0100) => [
+   q(0102) => [
       q(Mongolian),
       ],
-   q(0101) => [
+   q(0103) => [
       q(Moon (Moon code, Moon script, Moon type)),
       q(Moon),
       q(Moon code),
       q(Moon script),
       q(Moon type),
       ],
-   q(0102) => [
+   q(0104) => [
       q(Mro, Mru),
       q(Mro),
       q(Mru),
       ],
-   q(0103) => [
+   q(0105) => [
       q(Meitei Mayek (Meithei, Meetei)),
       q(Meitei Mayek),
       q(Meithei),
       q(Meetei),
       ],
-   q(0104) => [
+   q(0106) => [
       q(Multani),
       ],
-   q(0105) => [
+   q(0107) => [
       q(Myanmar (Burmese)),
       q(Myanmar),
       q(Burmese),
       ],
-   q(0106) => [
+   q(0108) => [
       q(Old North Arabian (Ancient North Arabian)),
       q(Old North Arabian),
       q(Ancient North Arabian),
       ],
-   q(0107) => [
+   q(0109) => [
       q(Nabataean),
       ],
-   q(0108) => [
+   q(0110) => [
+      q(Newa, Newar, Newari, Nepala lipi),
+      q(Newa),
+      q(Newar),
+      q(Newari),
+      q(Nepala lipi),
+      ],
+   q(0111) => [
       q(Nakhi Geba ('Na-'Khi Ggo-baw, Naxi Geba)),
       q(Nakhi Geba),
       q('Na-'Khi Ggo-baw),
       q(Naxi Geba),
       ],
-   q(0109) => [
+   q(0112) => [
       q(N'Ko),
       ],
-   q(0110) => [
+   q(0113) => [
       q(Nushu),
       ],
-   q(0111) => [
+   q(0114) => [
       q(Ogham),
       ],
-   q(0112) => [
+   q(0115) => [
       q(Ol Chiki (Ol Cemet, Ol, Santali)),
       q(Ol Chiki),
       q(Ol Cemet'),
       q(Ol),
       q(Santali),
       ],
-   q(0113) => [
+   q(0116) => [
       q(Old Turkic, Orkhon Runic),
       q(Old Turkic),
       q(Orkhon Runic),
       ],
-   q(0114) => [
+   q(0117) => [
       q(Oriya),
       ],
-   q(0115) => [
+   q(0118) => [
       q(Osage),
       ],
-   q(0116) => [
+   q(0119) => [
       q(Osmanya),
       ],
-   q(0117) => [
+   q(0120) => [
       q(Palmyrene),
       ],
-   q(0118) => [
+   q(0121) => [
       q(Pau Cin Hau),
       ],
-   q(0119) => [
+   q(0122) => [
       q(Old Permic),
       ],
-   q(0120) => [
+   q(0123) => [
       q(Phags-pa),
       ],
-   q(0121) => [
+   q(0124) => [
       q(Inscriptional Pahlavi),
       ],
-   q(0122) => [
+   q(0125) => [
       q(Psalter Pahlavi),
       ],
-   q(0123) => [
+   q(0126) => [
       q(Book Pahlavi),
       ],
-   q(0124) => [
+   q(0127) => [
       q(Phoenician),
       ],
-   q(0125) => [
+   q(0128) => [
       q(Miao (Pollard)),
       q(Miao),
       q(Pollard),
       ],
-   q(0126) => [
+   q(0129) => [
+      q(Klingon (KLI pIqaD)),
+      ],
+   q(0130) => [
       q(Inscriptional Parthian),
       ],
-   q(0127) => [
+   q(0131) => [
       q(Reserved for private use (start)),
       ],
-   q(0128) => [
+   q(0132) => [
       q(Reserved for private use (end)),
       ],
-   q(0129) => [
+   q(0133) => [
       q(Rejang (Redjang, Kaganga)),
       q(Rejang),
       q(Redjang),
       q(Kaganga),
       ],
-   q(0130) => [
+   q(0134) => [
       q(Rongorongo),
       ],
-   q(0131) => [
+   q(0135) => [
       q(Runic),
       ],
-   q(0132) => [
+   q(0136) => [
       q(Samaritan),
       ],
-   q(0133) => [
+   q(0137) => [
       q(Sarati),
       ],
-   q(0134) => [
+   q(0138) => [
       q(Old South Arabian),
       ],
-   q(0135) => [
+   q(0139) => [
       q(Saurashtra),
       ],
-   q(0136) => [
+   q(0140) => [
       q(SignWriting),
       ],
-   q(0137) => [
+   q(0141) => [
       q(Shavian (Shaw)),
       q(Shavian),
       q(Shaw),
       ],
-   q(0138) => [
+   q(0142) => [
       q(Sharada, Sarada),
       q(Sharada),
       q(Sarada),
       ],
-   q(0139) => [
+   q(0143) => [
       q(Siddham, Siddham, Siddhamatrka),
       q(Siddham),
       q(Siddhamatrka),
       ],
-   q(0140) => [
+   q(0144) => [
       q(Khudawadi, Sindhi),
       q(Khudawadi),
       q(Sindhi),
       ],
-   q(0141) => [
+   q(0145) => [
       q(Sinhala),
       ],
-   q(0142) => [
+   q(0146) => [
       q(Sora Sompeng),
       ],
-   q(0143) => [
+   q(0147) => [
       q(Sundanese),
       ],
-   q(0144) => [
+   q(0148) => [
       q(Syloti Nagri),
       ],
-   q(0145) => [
+   q(0149) => [
       q(Syriac),
       ],
-   q(0146) => [
+   q(0150) => [
       q(Syriac (Estrangelo variant)),
       ],
-   q(0147) => [
+   q(0151) => [
       q(Syriac (Western variant)),
       ],
-   q(0148) => [
+   q(0152) => [
       q(Syriac (Eastern variant)),
       ],
-   q(0149) => [
+   q(0153) => [
       q(Tagbanwa),
       ],
-   q(0150) => [
+   q(0154) => [
       q(Takri, Takri, Tankri),
       q(Takri),
       q(Tankri),
       ],
-   q(0151) => [
+   q(0155) => [
       q(Tai Le),
       ],
-   q(0152) => [
+   q(0156) => [
       q(New Tai Lue),
       ],
-   q(0153) => [
+   q(0157) => [
       q(Tamil),
       ],
-   q(0154) => [
+   q(0158) => [
       q(Tangut),
       ],
-   q(0155) => [
+   q(0159) => [
       q(Tai Viet),
       ],
-   q(0156) => [
+   q(0160) => [
       q(Telugu),
       ],
-   q(0157) => [
+   q(0161) => [
       q(Tengwar),
       ],
-   q(0158) => [
+   q(0162) => [
       q(Tifinagh (Berber)),
       q(Tifinagh),
       q(Berber),
       ],
-   q(0159) => [
+   q(0163) => [
       q(Tagalog (Baybayin, Alibata)),
       q(Tagalog),
       q(Baybayin),
       q(Alibata),
       ],
-   q(0160) => [
+   q(0164) => [
       q(Thaana),
       ],
-   q(0161) => [
+   q(0165) => [
       q(Thai),
       ],
-   q(0162) => [
+   q(0166) => [
       q(Tibetan),
       ],
-   q(0163) => [
+   q(0167) => [
       q(Tirhuta),
       ],
-   q(0164) => [
+   q(0168) => [
       q(Ugaritic),
       ],
-   q(0165) => [
+   q(0169) => [
       q(Vai),
       ],
-   q(0166) => [
+   q(0170) => [
       q(Visible Speech),
       ],
-   q(0167) => [
+   q(0171) => [
       q(Warang Citi (Varang Kshiti)),
       q(Warang Citi),
       q(Varang Kshiti),
       ],
-   q(0168) => [
+   q(0172) => [
       q(Woleai),
       ],
-   q(0169) => [
+   q(0173) => [
       q(Old Persian),
       ],
-   q(0170) => [
+   q(0174) => [
       q(Cuneiform, Sumero-Akkadian),
       q(Sumero-Akkadian cuneiform),
       ],
-   q(0171) => [
+   q(0175) => [
       q(Yi),
       ],
-   q(0172) => [
+   q(0176) => [
       q(Code for inherited script),
       ],
-   q(0173) => [
+   q(0177) => [
       q(Mathematical notation),
       ],
-   q(0174) => [
+   q(0178) => [
+      q(Symbols (Emoji variant)),
+      ],
+   q(0179) => [
       q(Symbols),
       ],
 };
 
 $Locale::Codes::Data{'script'}{'alias2id'} = {
    q('na-'khi ggo-baw) => [
-      q(0108),
+      q(0111),
       q(2),
       ],
    q(adlam) => [
@@ -640,19 +659,19 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(alibata) => [
-      q(0159),
+      q(0163),
       q(3),
       ],
    q(anatolian hieroglyphs) => [
-      q(0056),
+      q(0057),
       q(1),
       ],
    q(anatolian hieroglyphs (luwian hieroglyphs, hittite hieroglyphs)) => [
-      q(0056),
+      q(0057),
       q(0),
       ],
    q(ancient north arabian) => [
-      q(0106),
+      q(0108),
       q(2),
       ],
    q(arabic) => [
@@ -688,7 +707,7 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(baybayin) => [
-      q(0159),
+      q(0163),
       q(2),
       ],
    q(bengali) => [
@@ -696,7 +715,7 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(berber) => [
-      q(0158),
+      q(0162),
       q(2),
       ],
    q(bhaiksuki) => [
@@ -708,7 +727,7 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(book pahlavi) => [
-      q(0123),
+      q(0126),
       q(0),
       ],
    q(bopomofo) => [
@@ -732,7 +751,7 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(burmese) => [
-      q(0105),
+      q(0107),
       q(2),
       ],
    q(carian) => [
@@ -760,7 +779,7 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(code for inherited script) => [
-      q(0172),
+      q(0176),
       q(0),
       ],
    q(coptic) => [
@@ -768,7 +787,7 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(cuneiform, sumero-akkadian) => [
-      q(0170),
+      q(0174),
       q(0),
       ],
    q(cypriot) => [
@@ -836,7 +855,7 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(fraser) => [
-      q(0086),
+      q(0088),
       q(2),
       ],
    q(ge'ez) => [
@@ -872,71 +891,75 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(han) => [
-      q(0049),
+      q(0050),
       q(1),
       ],
    q(han (hanzi, kanji, hanja)) => [
-      q(0049),
+      q(0050),
       q(0),
       ],
    q(han (simplified variant)) => [
-      q(0051),
+      q(0052),
       q(0),
       ],
    q(han (traditional variant)) => [
-      q(0052),
+      q(0053),
       q(0),
       ],
-   q(hangeul) => [
+   q(han with bopomofo (alias for han + bopomofo)) => [
       q(0048),
+      q(0),
+      ],
+   q(hangeul) => [
+      q(0049),
       q(2),
       ],
    q(hangul) => [
-      q(0048),
+      q(0049),
       q(1),
       ],
    q(hangul (hangul, hangeul)) => [
-      q(0048),
+      q(0049),
       q(0),
       ],
    q(hanja) => [
-      q(0049),
+      q(0050),
       q(4),
       ],
    q(hanunoo) => [
-      q(0050),
+      q(0051),
       q(1),
       ],
    q(hanunoo (hanunoo)) => [
-      q(0050),
+      q(0051),
       q(0),
       ],
    q(hanzi) => [
-      q(0049),
+      q(0050),
       q(2),
       ],
    q(harappan) => [
-      q(0060),
+      q(0061),
       q(2),
       ],
    q(hatran) => [
-      q(0053),
+      q(0054),
       q(0),
       ],
    q(hebrew) => [
-      q(0054),
+      q(0055),
       q(0),
       ],
    q(hiragana) => [
-      q(0055),
+      q(0056),
       q(0),
       ],
    q(hittite hieroglyphs) => [
-      q(0056),
+      q(0057),
       q(3),
       ],
    q(hungarian runic) => [
-      q(0059),
+      q(0060),
       q(2),
       ],
    q(imperial aramaic) => [
@@ -944,271 +967,279 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(indus) => [
-      q(0060),
+      q(0061),
       q(1),
       ],
    q(indus (harappan)) => [
-      q(0060),
+      q(0061),
       q(0),
       ],
    q(inscriptional pahlavi) => [
-      q(0121),
+      q(0124),
       q(0),
       ],
    q(inscriptional parthian) => [
-      q(0126),
+      q(0130),
       q(0),
       ],
-   q(japanese (alias for han + hiragana + katakana)) => [
+   q(jamo (alias for jamo subset of hangul)) => [
       q(0063),
       q(0),
       ],
+   q(japanese (alias for han + hiragana + katakana)) => [
+      q(0065),
+      q(0),
+      ],
    q(japanese syllabaries (alias for hiragana + katakana)) => [
-      q(0058),
+      q(0059),
       q(0),
       ],
    q(javanese) => [
-      q(0062),
+      q(0064),
       q(0),
       ],
    q(jurchen) => [
-      q(0064),
+      q(0066),
       q(0),
       ],
    q(kaganga) => [
-      q(0129),
+      q(0133),
       q(3),
       ],
    q(kaithi) => [
-      q(0075),
+      q(0077),
       q(0),
       ],
    q(kanji) => [
-      q(0049),
+      q(0050),
       q(3),
       ],
    q(kannada) => [
-      q(0072),
+      q(0074),
       q(0),
       ],
    q(katakana) => [
-      q(0066),
+      q(0068),
       q(0),
       ],
    q(kayah li) => [
-      q(0065),
+      q(0067),
       q(0),
       ],
    q(kharoshthi) => [
-      q(0067),
+      q(0069),
       q(0),
       ],
    q(khitan large script) => [
-      q(0070),
+      q(0072),
       q(0),
       ],
    q(khitan small script) => [
-      q(0071),
+      q(0073),
       q(0),
       ],
    q(khmer) => [
-      q(0068),
+      q(0070),
       q(0),
       ],
    q(khojki) => [
-      q(0069),
+      q(0071),
       q(0),
       ],
    q(khudawadi) => [
-      q(0140),
+      q(0144),
       q(1),
       ],
    q(khudawadi, sindhi) => [
-      q(0140),
+      q(0144),
       q(0),
       ],
    q(khutsuri (asomtavruli and nuskhuri)) => [
       q(0040),
       q(0),
       ],
+   q(klingon (kli piqad)) => [
+      q(0129),
+      q(0),
+      ],
    q(korean (alias for hangul + han)) => [
-      q(0073),
+      q(0075),
       q(0),
       ],
    q(kpelle) => [
-      q(0074),
+      q(0076),
       q(0),
       ],
    q(lanna) => [
-      q(0076),
+      q(0078),
       q(2),
       ],
    q(lao) => [
-      q(0077),
+      q(0079),
       q(0),
       ],
    q(latin) => [
-      q(0080),
+      q(0082),
       q(0),
       ],
    q(latin (fraktur variant)) => [
-      q(0078),
+      q(0080),
       q(0),
       ],
    q(latin (gaelic variant)) => [
-      q(0079),
+      q(0081),
       q(0),
       ],
    q(leke) => [
-      q(0081),
+      q(0083),
       q(0),
       ],
    q(lepcha) => [
-      q(0082),
+      q(0084),
       q(1),
       ],
    q(lepcha (rong)) => [
-      q(0082),
+      q(0084),
       q(0),
       ],
    q(limbu) => [
-      q(0083),
+      q(0085),
       q(0),
       ],
    q(linear a) => [
-      q(0084),
+      q(0086),
       q(0),
       ],
    q(linear b) => [
-      q(0085),
+      q(0087),
       q(0),
       ],
    q(lisu) => [
-      q(0086),
+      q(0088),
       q(1),
       ],
    q(lisu (fraser)) => [
-      q(0086),
+      q(0088),
       q(0),
       ],
    q(loma) => [
-      q(0087),
+      q(0089),
       q(0),
       ],
    q(luwian hieroglyphs) => [
-      q(0056),
+      q(0057),
       q(2),
       ],
    q(lycian) => [
-      q(0088),
+      q(0090),
       q(0),
       ],
    q(lydian) => [
-      q(0089),
+      q(0091),
       q(0),
       ],
    q(mahajani) => [
-      q(0090),
+      q(0092),
       q(0),
       ],
    q(malayalam) => [
-      q(0098),
+      q(0100),
       q(0),
       ],
    q(mandaean) => [
-      q(0091),
+      q(0093),
       q(2),
       ],
    q(mandaic) => [
-      q(0091),
+      q(0093),
       q(1),
       ],
    q(mandaic, mandaean) => [
-      q(0091),
+      q(0093),
       q(0),
       ],
    q(manichaean) => [
-      q(0092),
+      q(0094),
       q(0),
       ],
    q(marchen) => [
-      q(0093),
+      q(0095),
       q(0),
       ],
    q(mathematical notation) => [
-      q(0173),
+      q(0177),
       q(0),
       ],
    q(mayan hieroglyphs) => [
-      q(0094),
+      q(0096),
       q(0),
       ],
    q(meetei) => [
-      q(0103),
+      q(0105),
       q(3),
       ],
    q(meitei mayek) => [
-      q(0103),
+      q(0105),
       q(1),
       ],
    q(meitei mayek (meithei, meetei)) => [
-      q(0103),
+      q(0105),
       q(0),
       ],
    q(meithei) => [
-      q(0103),
+      q(0105),
       q(2),
       ],
    q(mende kikakui) => [
-      q(0095),
+      q(0097),
       q(0),
       ],
    q(meroitic cursive) => [
-      q(0096),
+      q(0098),
       q(0),
       ],
    q(meroitic hieroglyphs) => [
-      q(0097),
+      q(0099),
       q(0),
       ],
    q(miao) => [
-      q(0125),
+      q(0128),
       q(1),
       ],
    q(miao (pollard)) => [
-      q(0125),
+      q(0128),
       q(0),
       ],
    q(modi) => [
-      q(0099),
+      q(0101),
       q(1),
       ],
    q(modi, modi) => [
-      q(0099),
+      q(0101),
       q(0),
       ],
    q(mongolian) => [
-      q(0100),
+      q(0102),
       q(0),
       ],
    q(moon) => [
-      q(0101),
+      q(0103),
       q(1),
       ],
    q(moon (moon code, moon script, moon type)) => [
-      q(0101),
+      q(0103),
       q(0),
       ],
    q(moon code) => [
-      q(0101),
+      q(0103),
       q(2),
       ],
    q(moon script) => [
-      q(0101),
+      q(0103),
       q(3),
       ],
    q(moon type) => [
-      q(0101),
+      q(0103),
       q(4),
       ],
    q(mormon) => [
@@ -1216,35 +1247,35 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(2),
       ],
    q(mro) => [
-      q(0102),
+      q(0104),
       q(1),
       ],
    q(mro, mru) => [
-      q(0102),
+      q(0104),
       q(0),
       ],
    q(mru) => [
-      q(0102),
+      q(0104),
       q(2),
       ],
    q(multani) => [
-      q(0104),
+      q(0106),
       q(0),
       ],
    q(myanmar) => [
-      q(0105),
+      q(0107),
       q(1),
       ],
    q(myanmar (burmese)) => [
-      q(0105),
+      q(0107),
       q(0),
       ],
    q(n'ko) => [
-      q(0109),
+      q(0112),
       q(0),
       ],
    q(nabataean) => [
-      q(0107),
+      q(0109),
       q(0),
       ],
    q(nagari) => [
@@ -1252,271 +1283,295 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(2),
       ],
    q(nakhi geba) => [
-      q(0108),
+      q(0111),
       q(1),
       ],
    q(nakhi geba ('na-'khi ggo-baw, naxi geba)) => [
-      q(0108),
+      q(0111),
       q(0),
       ],
    q(naxi geba) => [
-      q(0108),
+      q(0111),
       q(3),
       ],
+   q(nepala lipi) => [
+      q(0110),
+      q(4),
+      ],
    q(new tai lue) => [
-      q(0152),
+      q(0156),
       q(0),
       ],
-   q(nushu) => [
+   q(newa) => [
+      q(0110),
+      q(1),
+      ],
+   q(newa, newar, newari, nepala lipi) => [
       q(0110),
       q(0),
       ],
+   q(newar) => [
+      q(0110),
+      q(2),
+      ],
+   q(newari) => [
+      q(0110),
+      q(3),
+      ],
+   q(nushu) => [
+      q(0113),
+      q(0),
+      ],
    q(ogham) => [
-      q(0111),
+      q(0114),
       q(0),
       ],
    q(ol) => [
-      q(0112),
+      q(0115),
       q(3),
       ],
    q(ol cemet') => [
-      q(0112),
+      q(0115),
       q(2),
       ],
    q(ol chiki) => [
-      q(0112),
+      q(0115),
       q(1),
       ],
    q(ol chiki (ol cemet, ol, santali)) => [
-      q(0112),
+      q(0115),
       q(0),
       ],
    q(old hungarian) => [
-      q(0059),
+      q(0060),
       q(1),
       ],
    q(old hungarian (hungarian runic)) => [
-      q(0059),
+      q(0060),
       q(0),
       ],
    q(old italic (etruscan, oscan, etc.)) => [
-      q(0061),
+      q(0062),
       q(0),
       ],
    q(old north arabian) => [
-      q(0106),
+      q(0108),
       q(1),
       ],
    q(old north arabian (ancient north arabian)) => [
-      q(0106),
+      q(0108),
       q(0),
       ],
    q(old permic) => [
-      q(0119),
+      q(0122),
       q(0),
       ],
    q(old persian) => [
-      q(0169),
+      q(0173),
       q(0),
       ],
    q(old south arabian) => [
-      q(0134),
+      q(0138),
       q(0),
       ],
    q(old turkic) => [
-      q(0113),
+      q(0116),
       q(1),
       ],
    q(old turkic, orkhon runic) => [
-      q(0113),
+      q(0116),
       q(0),
       ],
    q(oriya) => [
-      q(0114),
+      q(0117),
       q(0),
       ],
    q(orkhon runic) => [
-      q(0113),
+      q(0116),
       q(2),
       ],
    q(osage) => [
-      q(0115),
+      q(0118),
       q(0),
       ],
    q(osmanya) => [
-      q(0116),
+      q(0119),
       q(0),
       ],
    q(pahawh hmong) => [
-      q(0057),
+      q(0058),
       q(0),
       ],
    q(palmyrene) => [
-      q(0117),
+      q(0120),
       q(0),
       ],
    q(pau cin hau) => [
-      q(0118),
+      q(0121),
       q(0),
       ],
    q(phags-pa) => [
-      q(0120),
+      q(0123),
       q(0),
       ],
    q(phoenician) => [
-      q(0124),
+      q(0127),
       q(0),
       ],
    q(pollard) => [
-      q(0125),
+      q(0128),
       q(2),
       ],
    q(psalter pahlavi) => [
-      q(0122),
+      q(0125),
       q(0),
       ],
    q(redjang) => [
-      q(0129),
+      q(0133),
       q(2),
       ],
    q(rejang) => [
-      q(0129),
+      q(0133),
       q(1),
       ],
    q(rejang (redjang, kaganga)) => [
-      q(0129),
+      q(0133),
       q(0),
       ],
    q(reserved for private use (end)) => [
-      q(0128),
+      q(0132),
       q(0),
       ],
    q(reserved for private use (start)) => [
-      q(0127),
+      q(0131),
       q(0),
       ],
    q(rong) => [
-      q(0082),
+      q(0084),
       q(2),
       ],
    q(rongorongo) => [
-      q(0130),
+      q(0134),
       q(0),
       ],
    q(runic) => [
-      q(0131),
+      q(0135),
       q(0),
       ],
    q(samaritan) => [
-      q(0132),
+      q(0136),
       q(0),
       ],
    q(santali) => [
-      q(0112),
+      q(0115),
       q(4),
       ],
    q(sarada) => [
-      q(0138),
+      q(0142),
       q(2),
       ],
    q(sarati) => [
-      q(0133),
+      q(0137),
       q(0),
       ],
    q(saurashtra) => [
-      q(0135),
+      q(0139),
       q(0),
       ],
    q(sharada) => [
-      q(0138),
+      q(0142),
       q(1),
       ],
    q(sharada, sarada) => [
-      q(0138),
+      q(0142),
       q(0),
       ],
    q(shavian) => [
-      q(0137),
+      q(0141),
       q(1),
       ],
    q(shavian (shaw)) => [
-      q(0137),
+      q(0141),
       q(0),
       ],
    q(shaw) => [
-      q(0137),
+      q(0141),
       q(2),
       ],
    q(siddham) => [
-      q(0139),
+      q(0143),
       q(1),
       ],
    q(siddham, siddham, siddhamatrka) => [
-      q(0139),
+      q(0143),
       q(0),
       ],
    q(siddhamatrka) => [
-      q(0139),
+      q(0143),
       q(2),
       ],
    q(signwriting) => [
-      q(0136),
+      q(0140),
       q(0),
       ],
    q(sindhi) => [
-      q(0140),
+      q(0144),
       q(2),
       ],
    q(sinhala) => [
-      q(0141),
+      q(0145),
       q(0),
       ],
    q(sora sompeng) => [
-      q(0142),
+      q(0146),
       q(0),
       ],
    q(sumero-akkadian cuneiform) => [
-      q(0170),
+      q(0174),
       q(1),
       ],
    q(sundanese) => [
-      q(0143),
+      q(0147),
       q(0),
       ],
    q(syloti nagri) => [
-      q(0144),
+      q(0148),
       q(0),
       ],
    q(symbols) => [
-      q(0174),
+      q(0179),
+      q(0),
+      ],
+   q(symbols (emoji variant)) => [
+      q(0178),
       q(0),
       ],
    q(syriac) => [
-      q(0145),
+      q(0149),
       q(0),
       ],
    q(syriac (eastern variant)) => [
-      q(0148),
+      q(0152),
       q(0),
       ],
    q(syriac (estrangelo variant)) => [
-      q(0146),
+      q(0150),
       q(0),
       ],
    q(syriac (western variant)) => [
-      q(0147),
+      q(0151),
       q(0),
       ],
    q(tagalog) => [
-      q(0159),
+      q(0163),
       q(1),
       ],
    q(tagalog (baybayin, alibata)) => [
-      q(0159),
+      q(0163),
       q(0),
       ],
    q(tagbanwa) => [
-      q(0149),
+      q(0153),
       q(0),
       ],
    q(tai ahom) => [
@@ -1524,75 +1579,75 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(2),
       ],
    q(tai le) => [
-      q(0151),
+      q(0155),
       q(0),
       ],
    q(tai tham) => [
-      q(0076),
+      q(0078),
       q(1),
       ],
    q(tai tham (lanna)) => [
-      q(0076),
+      q(0078),
       q(0),
       ],
    q(tai viet) => [
-      q(0155),
+      q(0159),
       q(0),
       ],
    q(takri) => [
-      q(0150),
+      q(0154),
       q(1),
       ],
    q(takri, takri, tankri) => [
-      q(0150),
+      q(0154),
       q(0),
       ],
    q(tamil) => [
-      q(0153),
+      q(0157),
       q(0),
       ],
    q(tangut) => [
-      q(0154),
+      q(0158),
       q(0),
       ],
    q(tankri) => [
-      q(0150),
+      q(0154),
       q(2),
       ],
    q(telugu) => [
-      q(0156),
+      q(0160),
       q(0),
       ],
    q(tengwar) => [
-      q(0157),
+      q(0161),
       q(0),
       ],
    q(thaana) => [
-      q(0160),
+      q(0164),
       q(0),
       ],
    q(thai) => [
-      q(0161),
+      q(0165),
       q(0),
       ],
    q(tibetan) => [
-      q(0162),
+      q(0166),
       q(0),
       ],
    q(tifinagh) => [
-      q(0158),
+      q(0162),
       q(1),
       ],
    q(tifinagh (berber)) => [
-      q(0158),
+      q(0162),
       q(0),
       ],
    q(tirhuta) => [
-      q(0163),
+      q(0167),
       q(0),
       ],
    q(ugaritic) => [
-      q(0164),
+      q(0168),
       q(0),
       ],
    q(unified canadian aboriginal syllabics) => [
@@ -1600,31 +1655,31 @@ $Locale::Codes::Data{'script'}{'alias2id'} = {
       q(0),
       ],
    q(vai) => [
-      q(0165),
+      q(0169),
       q(0),
       ],
    q(varang kshiti) => [
-      q(0167),
+      q(0171),
       q(2),
       ],
    q(visible speech) => [
-      q(0166),
+      q(0170),
       q(0),
       ],
    q(warang citi) => [
-      q(0167),
+      q(0171),
       q(1),
       ],
    q(warang citi (varang kshiti)) => [
-      q(0167),
+      q(0171),
       q(0),
       ],
    q(woleai) => [
-      q(0168),
+      q(0172),
       q(0),
       ],
    q(yi) => [
-      q(0171),
+      q(0175),
       q(0),
       ],
 };
@@ -1819,526 +1874,546 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0047),
          q(0),
          ],
-      q(Hang) => [
+      q(Hanb) => [
          q(0048),
+         q(0),
+         ],
+      q(Hang) => [
+         q(0049),
          q(1),
          ],
       q(Hani) => [
-         q(0049),
+         q(0050),
          q(1),
          ],
       q(Hano) => [
-         q(0050),
+         q(0051),
          q(1),
          ],
       q(Hans) => [
-         q(0051),
+         q(0052),
          q(0),
          ],
       q(Hant) => [
-         q(0052),
+         q(0053),
          q(0),
          ],
       q(Hatr) => [
-         q(0053),
+         q(0054),
          q(0),
          ],
       q(Hebr) => [
-         q(0054),
+         q(0055),
          q(0),
          ],
       q(Hira) => [
-         q(0055),
+         q(0056),
          q(0),
          ],
       q(Hluw) => [
-         q(0056),
+         q(0057),
          q(1),
          ],
       q(Hmng) => [
-         q(0057),
+         q(0058),
          q(0),
          ],
       q(Hrkt) => [
-         q(0058),
+         q(0059),
          q(0),
          ],
       q(Hung) => [
-         q(0059),
+         q(0060),
          q(1),
          ],
       q(Inds) => [
-         q(0060),
+         q(0061),
          q(1),
          ],
       q(Ital) => [
-         q(0061),
+         q(0062),
+         q(0),
+         ],
+      q(Jamo) => [
+         q(0063),
          q(0),
          ],
       q(Java) => [
-         q(0062),
+         q(0064),
          q(0),
          ],
       q(Jpan) => [
-         q(0063),
+         q(0065),
          q(0),
          ],
       q(Jurc) => [
-         q(0064),
+         q(0066),
          q(0),
          ],
       q(Kali) => [
-         q(0065),
+         q(0067),
          q(0),
          ],
       q(Kana) => [
-         q(0066),
+         q(0068),
          q(0),
          ],
       q(Khar) => [
-         q(0067),
+         q(0069),
          q(0),
          ],
       q(Khmr) => [
-         q(0068),
+         q(0070),
          q(0),
          ],
       q(Khoj) => [
-         q(0069),
+         q(0071),
          q(0),
          ],
       q(Kitl) => [
-         q(0070),
+         q(0072),
          q(0),
          ],
       q(Kits) => [
-         q(0071),
+         q(0073),
          q(0),
          ],
       q(Knda) => [
-         q(0072),
+         q(0074),
          q(0),
          ],
       q(Kore) => [
-         q(0073),
+         q(0075),
          q(0),
          ],
       q(Kpel) => [
-         q(0074),
+         q(0076),
          q(0),
          ],
       q(Kthi) => [
-         q(0075),
+         q(0077),
          q(0),
          ],
       q(Lana) => [
-         q(0076),
+         q(0078),
          q(1),
          ],
       q(Laoo) => [
-         q(0077),
+         q(0079),
          q(0),
          ],
       q(Latf) => [
-         q(0078),
+         q(0080),
          q(0),
          ],
       q(Latg) => [
-         q(0079),
+         q(0081),
          q(0),
          ],
       q(Latn) => [
-         q(0080),
+         q(0082),
          q(0),
          ],
       q(Leke) => [
-         q(0081),
+         q(0083),
          q(0),
          ],
       q(Lepc) => [
-         q(0082),
+         q(0084),
          q(1),
          ],
       q(Limb) => [
-         q(0083),
+         q(0085),
          q(0),
          ],
       q(Lina) => [
-         q(0084),
+         q(0086),
          q(0),
          ],
       q(Linb) => [
-         q(0085),
+         q(0087),
          q(0),
          ],
       q(Lisu) => [
-         q(0086),
+         q(0088),
          q(1),
          ],
       q(Loma) => [
-         q(0087),
+         q(0089),
          q(0),
          ],
       q(Lyci) => [
-         q(0088),
+         q(0090),
          q(0),
          ],
       q(Lydi) => [
-         q(0089),
+         q(0091),
          q(0),
          ],
       q(Mahj) => [
-         q(0090),
+         q(0092),
          q(0),
          ],
       q(Mand) => [
-         q(0091),
+         q(0093),
          q(1),
          ],
       q(Mani) => [
-         q(0092),
+         q(0094),
          q(0),
          ],
       q(Marc) => [
-         q(0093),
+         q(0095),
          q(0),
          ],
       q(Maya) => [
-         q(0094),
+         q(0096),
          q(0),
          ],
       q(Mend) => [
-         q(0095),
+         q(0097),
          q(0),
          ],
       q(Merc) => [
-         q(0096),
+         q(0098),
          q(0),
          ],
       q(Mero) => [
-         q(0097),
+         q(0099),
          q(0),
          ],
       q(Mlym) => [
-         q(0098),
+         q(0100),
          q(0),
          ],
       q(Modi) => [
-         q(0099),
+         q(0101),
          q(1),
          ],
       q(Mong) => [
-         q(0100),
+         q(0102),
          q(0),
          ],
       q(Moon) => [
-         q(0101),
+         q(0103),
          q(1),
          ],
       q(Mroo) => [
-         q(0102),
+         q(0104),
          q(1),
          ],
       q(Mtei) => [
-         q(0103),
+         q(0105),
          q(1),
          ],
       q(Mult) => [
-         q(0104),
+         q(0106),
          q(0),
          ],
       q(Mymr) => [
-         q(0105),
+         q(0107),
          q(1),
          ],
       q(Narb) => [
-         q(0106),
+         q(0108),
          q(1),
          ],
       q(Nbat) => [
-         q(0107),
+         q(0109),
          q(0),
          ],
+      q(Newa) => [
+         q(0110),
+         q(1),
+         ],
       q(Nkgb) => [
-         q(0108),
+         q(0111),
          q(1),
          ],
       q(Nkoo) => [
-         q(0109),
+         q(0112),
          q(0),
          ],
       q(Nshu) => [
-         q(0110),
+         q(0113),
          q(0),
          ],
       q(Ogam) => [
-         q(0111),
+         q(0114),
          q(0),
          ],
       q(Olck) => [
-         q(0112),
+         q(0115),
          q(1),
          ],
       q(Orkh) => [
-         q(0113),
+         q(0116),
          q(1),
          ],
       q(Orya) => [
-         q(0114),
+         q(0117),
          q(0),
          ],
       q(Osge) => [
-         q(0115),
+         q(0118),
          q(0),
          ],
       q(Osma) => [
-         q(0116),
+         q(0119),
          q(0),
          ],
       q(Palm) => [
-         q(0117),
+         q(0120),
          q(0),
          ],
       q(Pauc) => [
-         q(0118),
+         q(0121),
          q(0),
          ],
       q(Perm) => [
-         q(0119),
+         q(0122),
          q(0),
          ],
       q(Phag) => [
-         q(0120),
+         q(0123),
          q(0),
          ],
       q(Phli) => [
-         q(0121),
+         q(0124),
          q(0),
          ],
       q(Phlp) => [
-         q(0122),
+         q(0125),
          q(0),
          ],
       q(Phlv) => [
-         q(0123),
+         q(0126),
          q(0),
          ],
       q(Phnx) => [
-         q(0124),
+         q(0127),
+         q(0),
+         ],
+      q(Piqd) => [
+         q(0129),
          q(0),
          ],
       q(Plrd) => [
-         q(0125),
+         q(0128),
          q(1),
          ],
       q(Prti) => [
-         q(0126),
+         q(0130),
          q(0),
          ],
       q(Qaaa) => [
-         q(0127),
+         q(0131),
          q(0),
          ],
       q(Qabx) => [
-         q(0128),
+         q(0132),
          q(0),
          ],
       q(Rjng) => [
-         q(0129),
+         q(0133),
          q(1),
          ],
       q(Roro) => [
-         q(0130),
+         q(0134),
          q(0),
          ],
       q(Runr) => [
-         q(0131),
+         q(0135),
          q(0),
          ],
       q(Samr) => [
-         q(0132),
+         q(0136),
          q(0),
          ],
       q(Sara) => [
-         q(0133),
+         q(0137),
          q(0),
          ],
       q(Sarb) => [
-         q(0134),
+         q(0138),
          q(0),
          ],
       q(Saur) => [
-         q(0135),
+         q(0139),
          q(0),
          ],
       q(Sgnw) => [
-         q(0136),
+         q(0140),
          q(0),
          ],
       q(Shaw) => [
-         q(0137),
+         q(0141),
          q(1),
          ],
       q(Shrd) => [
-         q(0138),
+         q(0142),
          q(1),
          ],
       q(Sidd) => [
-         q(0139),
+         q(0143),
          q(1),
          ],
       q(Sind) => [
-         q(0140),
+         q(0144),
          q(1),
          ],
       q(Sinh) => [
-         q(0141),
+         q(0145),
          q(0),
          ],
       q(Sora) => [
-         q(0142),
+         q(0146),
          q(0),
          ],
       q(Sund) => [
-         q(0143),
+         q(0147),
          q(0),
          ],
       q(Sylo) => [
-         q(0144),
+         q(0148),
          q(0),
          ],
       q(Syrc) => [
-         q(0145),
+         q(0149),
          q(0),
          ],
       q(Syre) => [
-         q(0146),
+         q(0150),
          q(0),
          ],
       q(Syrj) => [
-         q(0147),
+         q(0151),
          q(0),
          ],
       q(Syrn) => [
-         q(0148),
+         q(0152),
          q(0),
          ],
       q(Tagb) => [
-         q(0149),
+         q(0153),
          q(0),
          ],
       q(Takr) => [
-         q(0150),
+         q(0154),
          q(1),
          ],
       q(Tale) => [
-         q(0151),
+         q(0155),
          q(0),
          ],
       q(Talu) => [
-         q(0152),
+         q(0156),
          q(0),
          ],
       q(Taml) => [
-         q(0153),
+         q(0157),
          q(0),
          ],
       q(Tang) => [
-         q(0154),
+         q(0158),
          q(0),
          ],
       q(Tavt) => [
-         q(0155),
+         q(0159),
          q(0),
          ],
       q(Telu) => [
-         q(0156),
+         q(0160),
          q(0),
          ],
       q(Teng) => [
-         q(0157),
+         q(0161),
          q(0),
          ],
       q(Tfng) => [
-         q(0158),
+         q(0162),
          q(1),
          ],
       q(Tglg) => [
-         q(0159),
+         q(0163),
          q(1),
          ],
       q(Thaa) => [
-         q(0160),
+         q(0164),
          q(0),
          ],
       q(Thai) => [
-         q(0161),
+         q(0165),
          q(0),
          ],
       q(Tibt) => [
-         q(0162),
+         q(0166),
          q(0),
          ],
       q(Tirh) => [
-         q(0163),
+         q(0167),
          q(0),
          ],
       q(Ugar) => [
-         q(0164),
+         q(0168),
          q(0),
          ],
       q(Vaii) => [
-         q(0165),
+         q(0169),
          q(0),
          ],
       q(Visp) => [
-         q(0166),
+         q(0170),
          q(0),
          ],
       q(Wara) => [
-         q(0167),
+         q(0171),
          q(1),
          ],
       q(Wole) => [
-         q(0168),
+         q(0172),
          q(0),
          ],
       q(Xpeo) => [
-         q(0169),
+         q(0173),
          q(0),
          ],
       q(Xsux) => [
-         q(0170),
+         q(0174),
          q(1),
          ],
       q(Yiii) => [
-         q(0171),
+         q(0175),
          q(0),
          ],
       q(Zinh) => [
-         q(0172),
+         q(0176),
          q(0),
          ],
       q(Zmth) => [
-         q(0173),
+         q(0177),
+         q(0),
+         ],
+      q(Zsye) => [
+         q(0178),
          q(0),
          ],
       q(Zsym) => [
-         q(0174),
+         q(0179),
          q(0),
          ],
       },
    q(num) => {
       q(020) => [
-         q(0170),
+         q(0174),
          q(0),
          ],
       q(030) => [
-         q(0169),
+         q(0173),
          q(0),
          ],
       q(040) => [
-         q(0164),
+         q(0168),
          q(0),
          ],
       q(050) => [
@@ -2354,47 +2429,47 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(080) => [
-         q(0056),
+         q(0057),
          q(0),
          ],
       q(090) => [
-         q(0094),
+         q(0096),
          q(0),
          ],
       q(095) => [
-         q(0136),
+         q(0140),
          q(0),
          ],
       q(100) => [
-         q(0097),
+         q(0099),
          q(0),
          ],
       q(101) => [
-         q(0096),
+         q(0098),
          q(0),
          ],
       q(105) => [
-         q(0134),
+         q(0138),
          q(0),
          ],
       q(106) => [
-         q(0106),
+         q(0108),
          q(0),
          ],
       q(115) => [
-         q(0124),
+         q(0127),
          q(0),
          ],
       q(116) => [
-         q(0089),
+         q(0091),
          q(0),
          ],
       q(120) => [
-         q(0158),
+         q(0162),
          q(0),
          ],
       q(123) => [
-         q(0132),
+         q(0136),
          q(0),
          ],
       q(124) => [
@@ -2402,31 +2477,31 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(125) => [
-         q(0054),
+         q(0055),
          q(0),
          ],
       q(126) => [
-         q(0117),
+         q(0120),
          q(0),
          ],
       q(127) => [
-         q(0053),
+         q(0054),
          q(0),
          ],
       q(130) => [
-         q(0126),
+         q(0130),
          q(0),
          ],
       q(131) => [
-         q(0121),
+         q(0124),
          q(0),
          ],
       q(132) => [
-         q(0122),
+         q(0125),
          q(0),
          ],
       q(133) => [
-         q(0123),
+         q(0126),
          q(0),
          ],
       q(134) => [
@@ -2434,35 +2509,35 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(135) => [
-         q(0145),
+         q(0149),
          q(0),
          ],
       q(136) => [
-         q(0148),
+         q(0152),
          q(0),
          ],
       q(137) => [
-         q(0147),
+         q(0151),
          q(0),
          ],
       q(138) => [
-         q(0146),
+         q(0150),
          q(0),
          ],
       q(139) => [
-         q(0092),
+         q(0094),
          q(0),
          ],
       q(140) => [
-         q(0091),
+         q(0093),
          q(0),
          ],
       q(145) => [
-         q(0100),
+         q(0102),
          q(0),
          ],
       q(159) => [
-         q(0107),
+         q(0109),
          q(0),
          ],
       q(160) => [
@@ -2474,7 +2549,7 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(165) => [
-         q(0109),
+         q(0112),
          q(0),
          ],
       q(166) => [
@@ -2482,19 +2557,19 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(170) => [
-         q(0160),
+         q(0164),
          q(0),
          ],
       q(175) => [
-         q(0113),
+         q(0116),
          q(0),
          ],
       q(176) => [
-         q(0059),
+         q(0060),
          q(0),
          ],
       q(199) => [
-         q(0102),
+         q(0104),
          q(0),
          ],
       q(200) => [
@@ -2506,7 +2581,7 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(202) => [
-         q(0088),
+         q(0090),
          q(0),
          ],
       q(204) => [
@@ -2518,35 +2593,35 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(210) => [
-         q(0061),
+         q(0062),
          q(0),
          ],
       q(211) => [
-         q(0131),
+         q(0135),
          q(0),
          ],
       q(212) => [
-         q(0111),
+         q(0114),
          q(0),
          ],
       q(215) => [
-         q(0080),
+         q(0082),
          q(0),
          ],
       q(216) => [
-         q(0079),
+         q(0081),
          q(0),
          ],
       q(217) => [
-         q(0078),
+         q(0080),
          q(0),
          ],
       q(218) => [
-         q(0101),
+         q(0103),
          q(0),
          ],
       q(219) => [
-         q(0115),
+         q(0118),
          q(0),
          ],
       q(220) => [
@@ -2566,7 +2641,7 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(227) => [
-         q(0119),
+         q(0122),
          q(0),
          ],
       q(230) => [
@@ -2594,31 +2669,35 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(260) => [
-         q(0116),
+         q(0119),
          q(0),
          ],
       q(261) => [
-         q(0112),
+         q(0115),
          q(0),
          ],
       q(262) => [
-         q(0167),
+         q(0171),
          q(0),
          ],
       q(263) => [
-         q(0118),
+         q(0121),
          q(0),
          ],
       q(280) => [
-         q(0166),
+         q(0170),
          q(0),
          ],
       q(281) => [
-         q(0137),
+         q(0141),
          q(0),
          ],
       q(282) => [
-         q(0125),
+         q(0128),
+         q(0),
+         ],
+      q(284) => [
+         q(0063),
          q(0),
          ],
       q(285) => [
@@ -2626,19 +2705,19 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(286) => [
-         q(0048),
+         q(0049),
          q(0),
          ],
       q(287) => [
-         q(0073),
+         q(0075),
          q(0),
          ],
       q(288) => [
-         q(0071),
+         q(0073),
          q(0),
          ],
       q(290) => [
-         q(0157),
+         q(0161),
          q(0),
          ],
       q(291) => [
@@ -2646,7 +2725,11 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(292) => [
-         q(0133),
+         q(0137),
+         q(0),
+         ],
+      q(293) => [
+         q(0129),
          q(0),
          ],
       q(300) => [
@@ -2654,11 +2737,11 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(302) => [
-         q(0139),
+         q(0143),
          q(0),
          ],
       q(305) => [
-         q(0067),
+         q(0069),
          q(0),
          ],
       q(310) => [
@@ -2666,7 +2749,7 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(314) => [
-         q(0090),
+         q(0092),
          q(0),
          ],
       q(315) => [
@@ -2674,19 +2757,19 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(316) => [
-         q(0144),
+         q(0148),
          q(0),
          ],
       q(317) => [
-         q(0075),
+         q(0077),
          q(0),
          ],
       q(318) => [
-         q(0140),
+         q(0144),
          q(0),
          ],
       q(319) => [
-         q(0138),
+         q(0142),
          q(0),
          ],
       q(320) => [
@@ -2694,19 +2777,19 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(321) => [
-         q(0150),
+         q(0154),
          q(0),
          ],
       q(322) => [
-         q(0069),
+         q(0071),
          q(0),
          ],
       q(323) => [
-         q(0104),
+         q(0106),
          q(0),
          ],
       q(324) => [
-         q(0099),
+         q(0101),
          q(0),
          ],
       q(325) => [
@@ -2714,23 +2797,27 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(326) => [
-         q(0163),
+         q(0167),
          q(0),
          ],
       q(327) => [
-         q(0114),
+         q(0117),
          q(0),
          ],
       q(330) => [
-         q(0162),
+         q(0166),
          q(0),
          ],
       q(331) => [
-         q(0120),
+         q(0123),
          q(0),
          ],
       q(332) => [
-         q(0093),
+         q(0095),
+         q(0),
+         ],
+      q(333) => [
+         q(0110),
          q(0),
          ],
       q(334) => [
@@ -2738,15 +2825,15 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(335) => [
-         q(0082),
+         q(0084),
          q(0),
          ],
       q(336) => [
-         q(0083),
+         q(0085),
          q(0),
          ],
       q(337) => [
-         q(0103),
+         q(0105),
          q(0),
          ],
       q(338) => [
@@ -2754,7 +2841,7 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(340) => [
-         q(0156),
+         q(0160),
          q(0),
          ],
       q(343) => [
@@ -2762,23 +2849,23 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(344) => [
-         q(0135),
+         q(0139),
          q(0),
          ],
       q(345) => [
-         q(0072),
+         q(0074),
          q(0),
          ],
       q(346) => [
-         q(0153),
+         q(0157),
          q(0),
          ],
       q(347) => [
-         q(0098),
+         q(0100),
          q(0),
          ],
       q(348) => [
-         q(0141),
+         q(0145),
          q(0),
          ],
       q(349) => [
@@ -2786,35 +2873,35 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(350) => [
-         q(0105),
+         q(0107),
          q(0),
          ],
       q(351) => [
-         q(0076),
+         q(0078),
          q(0),
          ],
       q(352) => [
-         q(0161),
+         q(0165),
          q(0),
          ],
       q(353) => [
-         q(0151),
+         q(0155),
          q(0),
          ],
       q(354) => [
-         q(0152),
+         q(0156),
          q(0),
          ],
       q(355) => [
-         q(0068),
+         q(0070),
          q(0),
          ],
       q(356) => [
-         q(0077),
+         q(0079),
          q(0),
          ],
       q(357) => [
-         q(0065),
+         q(0067),
          q(0),
          ],
       q(358) => [
@@ -2822,7 +2909,7 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(359) => [
-         q(0155),
+         q(0159),
          q(0),
          ],
       q(360) => [
@@ -2830,19 +2917,19 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(361) => [
-         q(0062),
+         q(0064),
          q(0),
          ],
       q(362) => [
-         q(0143),
+         q(0147),
          q(0),
          ],
       q(363) => [
-         q(0129),
+         q(0133),
          q(0),
          ],
       q(364) => [
-         q(0081),
+         q(0083),
          q(0),
          ],
       q(365) => [
@@ -2854,11 +2941,11 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(370) => [
-         q(0159),
+         q(0163),
          q(0),
          ],
       q(371) => [
-         q(0050),
+         q(0051),
          q(0),
          ],
       q(372) => [
@@ -2866,23 +2953,23 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(373) => [
-         q(0149),
+         q(0153),
          q(0),
          ],
       q(398) => [
-         q(0142),
+         q(0146),
          q(0),
          ],
       q(399) => [
-         q(0086),
+         q(0088),
          q(0),
          ],
       q(400) => [
-         q(0084),
+         q(0086),
          q(0),
          ],
       q(401) => [
-         q(0085),
+         q(0087),
          q(0),
          ],
       q(403) => [
@@ -2890,23 +2977,23 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(410) => [
-         q(0055),
+         q(0056),
          q(0),
          ],
       q(411) => [
-         q(0066),
+         q(0068),
          q(0),
          ],
       q(412) => [
-         q(0058),
+         q(0059),
          q(0),
          ],
       q(413) => [
-         q(0063),
+         q(0065),
          q(0),
          ],
       q(420) => [
-         q(0108),
+         q(0111),
          q(0),
          ],
       q(430) => [
@@ -2918,15 +3005,15 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(436) => [
-         q(0074),
+         q(0076),
          q(0),
          ],
       q(437) => [
-         q(0087),
+         q(0089),
          q(0),
          ],
       q(438) => [
-         q(0095),
+         q(0097),
          q(0),
          ],
       q(439) => [
@@ -2942,47 +3029,51 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(450) => [
-         q(0057),
+         q(0058),
          q(0),
          ],
       q(460) => [
-         q(0171),
+         q(0175),
          q(0),
          ],
       q(470) => [
-         q(0165),
+         q(0169),
          q(0),
          ],
       q(480) => [
-         q(0168),
+         q(0172),
          q(0),
          ],
       q(499) => [
-         q(0110),
+         q(0113),
          q(0),
          ],
       q(500) => [
-         q(0049),
+         q(0050),
          q(0),
          ],
       q(501) => [
-         q(0051),
+         q(0052),
          q(0),
          ],
       q(502) => [
-         q(0052),
+         q(0053),
+         q(0),
+         ],
+      q(503) => [
+         q(0048),
          q(0),
          ],
       q(505) => [
-         q(0070),
+         q(0072),
          q(0),
          ],
       q(510) => [
-         q(0064),
+         q(0066),
          q(0),
          ],
       q(520) => [
-         q(0154),
+         q(0158),
          q(0),
          ],
       q(550) => [
@@ -2994,11 +3085,11 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(610) => [
-         q(0060),
+         q(0061),
          q(0),
          ],
       q(620) => [
-         q(0130),
+         q(0134),
          q(0),
          ],
       q(755) => [
@@ -3006,23 +3097,27 @@ $Locale::Codes::Data{'script'}{'code2id'} = {
          q(0),
          ],
       q(900) => [
-         q(0127),
+         q(0131),
          q(0),
          ],
       q(949) => [
-         q(0128),
+         q(0132),
+         q(0),
+         ],
+      q(993) => [
+         q(0178),
          q(0),
          ],
       q(994) => [
-         q(0172),
+         q(0176),
          q(0),
          ],
       q(995) => [
-         q(0173),
+         q(0177),
          q(0),
          ],
       q(996) => [
-         q(0174),
+         q(0179),
          q(0),
          ],
       },
@@ -3077,133 +3172,138 @@ $Locale::Codes::Data{'script'}{'id2code'} = {
       q(0045) => q(Grek),
       q(0046) => q(Gujr),
       q(0047) => q(Guru),
-      q(0048) => q(Hang),
-      q(0049) => q(Hani),
-      q(0050) => q(Hano),
-      q(0051) => q(Hans),
-      q(0052) => q(Hant),
-      q(0053) => q(Hatr),
-      q(0054) => q(Hebr),
-      q(0055) => q(Hira),
-      q(0056) => q(Hluw),
-      q(0057) => q(Hmng),
-      q(0058) => q(Hrkt),
-      q(0059) => q(Hung),
-      q(0060) => q(Inds),
-      q(0061) => q(Ital),
-      q(0062) => q(Java),
-      q(0063) => q(Jpan),
-      q(0064) => q(Jurc),
-      q(0065) => q(Kali),
-      q(0066) => q(Kana),
-      q(0067) => q(Khar),
-      q(0068) => q(Khmr),
-      q(0069) => q(Khoj),
-      q(0070) => q(Kitl),
-      q(0071) => q(Kits),
-      q(0072) => q(Knda),
-      q(0073) => q(Kore),
-      q(0074) => q(Kpel),
-      q(0075) => q(Kthi),
-      q(0076) => q(Lana),
-      q(0077) => q(Laoo),
-      q(0078) => q(Latf),
-      q(0079) => q(Latg),
-      q(0080) => q(Latn),
-      q(0081) => q(Leke),
-      q(0082) => q(Lepc),
-      q(0083) => q(Limb),
-      q(0084) => q(Lina),
-      q(0085) => q(Linb),
-      q(0086) => q(Lisu),
-      q(0087) => q(Loma),
-      q(0088) => q(Lyci),
-      q(0089) => q(Lydi),
-      q(0090) => q(Mahj),
-      q(0091) => q(Mand),
-      q(0092) => q(Mani),
-      q(0093) => q(Marc),
-      q(0094) => q(Maya),
-      q(0095) => q(Mend),
-      q(0096) => q(Merc),
-      q(0097) => q(Mero),
-      q(0098) => q(Mlym),
-      q(0099) => q(Modi),
-      q(0100) => q(Mong),
-      q(0101) => q(Moon),
-      q(0102) => q(Mroo),
-      q(0103) => q(Mtei),
-      q(0104) => q(Mult),
-      q(0105) => q(Mymr),
-      q(0106) => q(Narb),
-      q(0107) => q(Nbat),
-      q(0108) => q(Nkgb),
-      q(0109) => q(Nkoo),
-      q(0110) => q(Nshu),
-      q(0111) => q(Ogam),
-      q(0112) => q(Olck),
-      q(0113) => q(Orkh),
-      q(0114) => q(Orya),
-      q(0115) => q(Osge),
-      q(0116) => q(Osma),
-      q(0117) => q(Palm),
-      q(0118) => q(Pauc),
-      q(0119) => q(Perm),
-      q(0120) => q(Phag),
-      q(0121) => q(Phli),
-      q(0122) => q(Phlp),
-      q(0123) => q(Phlv),
-      q(0124) => q(Phnx),
-      q(0125) => q(Plrd),
-      q(0126) => q(Prti),
-      q(0127) => q(Qaaa),
-      q(0128) => q(Qabx),
-      q(0129) => q(Rjng),
-      q(0130) => q(Roro),
-      q(0131) => q(Runr),
-      q(0132) => q(Samr),
-      q(0133) => q(Sara),
-      q(0134) => q(Sarb),
-      q(0135) => q(Saur),
-      q(0136) => q(Sgnw),
-      q(0137) => q(Shaw),
-      q(0138) => q(Shrd),
-      q(0139) => q(Sidd),
-      q(0140) => q(Sind),
-      q(0141) => q(Sinh),
-      q(0142) => q(Sora),
-      q(0143) => q(Sund),
-      q(0144) => q(Sylo),
-      q(0145) => q(Syrc),
-      q(0146) => q(Syre),
-      q(0147) => q(Syrj),
-      q(0148) => q(Syrn),
-      q(0149) => q(Tagb),
-      q(0150) => q(Takr),
-      q(0151) => q(Tale),
-      q(0152) => q(Talu),
-      q(0153) => q(Taml),
-      q(0154) => q(Tang),
-      q(0155) => q(Tavt),
-      q(0156) => q(Telu),
-      q(0157) => q(Teng),
-      q(0158) => q(Tfng),
-      q(0159) => q(Tglg),
-      q(0160) => q(Thaa),
-      q(0161) => q(Thai),
-      q(0162) => q(Tibt),
-      q(0163) => q(Tirh),
-      q(0164) => q(Ugar),
-      q(0165) => q(Vaii),
-      q(0166) => q(Visp),
-      q(0167) => q(Wara),
-      q(0168) => q(Wole),
-      q(0169) => q(Xpeo),
-      q(0170) => q(Xsux),
-      q(0171) => q(Yiii),
-      q(0172) => q(Zinh),
-      q(0173) => q(Zmth),
-      q(0174) => q(Zsym),
+      q(0048) => q(Hanb),
+      q(0049) => q(Hang),
+      q(0050) => q(Hani),
+      q(0051) => q(Hano),
+      q(0052) => q(Hans),
+      q(0053) => q(Hant),
+      q(0054) => q(Hatr),
+      q(0055) => q(Hebr),
+      q(0056) => q(Hira),
+      q(0057) => q(Hluw),
+      q(0058) => q(Hmng),
+      q(0059) => q(Hrkt),
+      q(0060) => q(Hung),
+      q(0061) => q(Inds),
+      q(0062) => q(Ital),
+      q(0063) => q(Jamo),
+      q(0064) => q(Java),
+      q(0065) => q(Jpan),
+      q(0066) => q(Jurc),
+      q(0067) => q(Kali),
+      q(0068) => q(Kana),
+      q(0069) => q(Khar),
+      q(0070) => q(Khmr),
+      q(0071) => q(Khoj),
+      q(0072) => q(Kitl),
+      q(0073) => q(Kits),
+      q(0074) => q(Knda),
+      q(0075) => q(Kore),
+      q(0076) => q(Kpel),
+      q(0077) => q(Kthi),
+      q(0078) => q(Lana),
+      q(0079) => q(Laoo),
+      q(0080) => q(Latf),
+      q(0081) => q(Latg),
+      q(0082) => q(Latn),
+      q(0083) => q(Leke),
+      q(0084) => q(Lepc),
+      q(0085) => q(Limb),
+      q(0086) => q(Lina),
+      q(0087) => q(Linb),
+      q(0088) => q(Lisu),
+      q(0089) => q(Loma),
+      q(0090) => q(Lyci),
+      q(0091) => q(Lydi),
+      q(0092) => q(Mahj),
+      q(0093) => q(Mand),
+      q(0094) => q(Mani),
+      q(0095) => q(Marc),
+      q(0096) => q(Maya),
+      q(0097) => q(Mend),
+      q(0098) => q(Merc),
+      q(0099) => q(Mero),
+      q(0100) => q(Mlym),
+      q(0101) => q(Modi),
+      q(0102) => q(Mong),
+      q(0103) => q(Moon),
+      q(0104) => q(Mroo),
+      q(0105) => q(Mtei),
+      q(0106) => q(Mult),
+      q(0107) => q(Mymr),
+      q(0108) => q(Narb),
+      q(0109) => q(Nbat),
+      q(0110) => q(Newa),
+      q(0111) => q(Nkgb),
+      q(0112) => q(Nkoo),
+      q(0113) => q(Nshu),
+      q(0114) => q(Ogam),
+      q(0115) => q(Olck),
+      q(0116) => q(Orkh),
+      q(0117) => q(Orya),
+      q(0118) => q(Osge),
+      q(0119) => q(Osma),
+      q(0120) => q(Palm),
+      q(0121) => q(Pauc),
+      q(0122) => q(Perm),
+      q(0123) => q(Phag),
+      q(0124) => q(Phli),
+      q(0125) => q(Phlp),
+      q(0126) => q(Phlv),
+      q(0127) => q(Phnx),
+      q(0128) => q(Plrd),
+      q(0129) => q(Piqd),
+      q(0130) => q(Prti),
+      q(0131) => q(Qaaa),
+      q(0132) => q(Qabx),
+      q(0133) => q(Rjng),
+      q(0134) => q(Roro),
+      q(0135) => q(Runr),
+      q(0136) => q(Samr),
+      q(0137) => q(Sara),
+      q(0138) => q(Sarb),
+      q(0139) => q(Saur),
+      q(0140) => q(Sgnw),
+      q(0141) => q(Shaw),
+      q(0142) => q(Shrd),
+      q(0143) => q(Sidd),
+      q(0144) => q(Sind),
+      q(0145) => q(Sinh),
+      q(0146) => q(Sora),
+      q(0147) => q(Sund),
+      q(0148) => q(Sylo),
+      q(0149) => q(Syrc),
+      q(0150) => q(Syre),
+      q(0151) => q(Syrj),
+      q(0152) => q(Syrn),
+      q(0153) => q(Tagb),
+      q(0154) => q(Takr),
+      q(0155) => q(Tale),
+      q(0156) => q(Talu),
+      q(0157) => q(Taml),
+      q(0158) => q(Tang),
+      q(0159) => q(Tavt),
+      q(0160) => q(Telu),
+      q(0161) => q(Teng),
+      q(0162) => q(Tfng),
+      q(0163) => q(Tglg),
+      q(0164) => q(Thaa),
+      q(0165) => q(Thai),
+      q(0166) => q(Tibt),
+      q(0167) => q(Tirh),
+      q(0168) => q(Ugar),
+      q(0169) => q(Vaii),
+      q(0170) => q(Visp),
+      q(0171) => q(Wara),
+      q(0172) => q(Wole),
+      q(0173) => q(Xpeo),
+      q(0174) => q(Xsux),
+      q(0175) => q(Yiii),
+      q(0176) => q(Zinh),
+      q(0177) => q(Zmth),
+      q(0178) => q(Zsye),
+      q(0179) => q(Zsym),
       },
    q(num) => {
       q(0001) => q(166),
@@ -3253,133 +3353,138 @@ $Locale::Codes::Data{'script'}{'id2code'} = {
       q(0045) => q(200),
       q(0046) => q(320),
       q(0047) => q(310),
-      q(0048) => q(286),
-      q(0049) => q(500),
-      q(0050) => q(371),
-      q(0051) => q(501),
-      q(0052) => q(502),
-      q(0053) => q(127),
-      q(0054) => q(125),
-      q(0055) => q(410),
-      q(0056) => q(080),
-      q(0057) => q(450),
-      q(0058) => q(412),
-      q(0059) => q(176),
-      q(0060) => q(610),
-      q(0061) => q(210),
-      q(0062) => q(361),
-      q(0063) => q(413),
-      q(0064) => q(510),
-      q(0065) => q(357),
-      q(0066) => q(411),
-      q(0067) => q(305),
-      q(0068) => q(355),
-      q(0069) => q(322),
-      q(0070) => q(505),
-      q(0071) => q(288),
-      q(0072) => q(345),
-      q(0073) => q(287),
-      q(0074) => q(436),
-      q(0075) => q(317),
-      q(0076) => q(351),
-      q(0077) => q(356),
-      q(0078) => q(217),
-      q(0079) => q(216),
-      q(0080) => q(215),
-      q(0081) => q(364),
-      q(0082) => q(335),
-      q(0083) => q(336),
-      q(0084) => q(400),
-      q(0085) => q(401),
-      q(0086) => q(399),
-      q(0087) => q(437),
-      q(0088) => q(202),
-      q(0089) => q(116),
-      q(0090) => q(314),
-      q(0091) => q(140),
-      q(0092) => q(139),
-      q(0093) => q(332),
-      q(0094) => q(090),
-      q(0095) => q(438),
-      q(0096) => q(101),
-      q(0097) => q(100),
-      q(0098) => q(347),
-      q(0099) => q(324),
-      q(0100) => q(145),
-      q(0101) => q(218),
-      q(0102) => q(199),
-      q(0103) => q(337),
-      q(0104) => q(323),
-      q(0105) => q(350),
-      q(0106) => q(106),
-      q(0107) => q(159),
-      q(0108) => q(420),
-      q(0109) => q(165),
-      q(0110) => q(499),
-      q(0111) => q(212),
-      q(0112) => q(261),
-      q(0113) => q(175),
-      q(0114) => q(327),
-      q(0115) => q(219),
-      q(0116) => q(260),
-      q(0117) => q(126),
-      q(0118) => q(263),
-      q(0119) => q(227),
-      q(0120) => q(331),
-      q(0121) => q(131),
-      q(0122) => q(132),
-      q(0123) => q(133),
-      q(0124) => q(115),
-      q(0125) => q(282),
-      q(0126) => q(130),
-      q(0127) => q(900),
-      q(0128) => q(949),
-      q(0129) => q(363),
-      q(0130) => q(620),
-      q(0131) => q(211),
-      q(0132) => q(123),
-      q(0133) => q(292),
-      q(0134) => q(105),
-      q(0135) => q(344),
-      q(0136) => q(095),
-      q(0137) => q(281),
-      q(0138) => q(319),
-      q(0139) => q(302),
-      q(0140) => q(318),
-      q(0141) => q(348),
-      q(0142) => q(398),
-      q(0143) => q(362),
-      q(0144) => q(316),
-      q(0145) => q(135),
-      q(0146) => q(138),
-      q(0147) => q(137),
-      q(0148) => q(136),
-      q(0149) => q(373),
-      q(0150) => q(321),
-      q(0151) => q(353),
-      q(0152) => q(354),
-      q(0153) => q(346),
-      q(0154) => q(520),
-      q(0155) => q(359),
-      q(0156) => q(340),
-      q(0157) => q(290),
-      q(0158) => q(120),
-      q(0159) => q(370),
-      q(0160) => q(170),
-      q(0161) => q(352),
-      q(0162) => q(330),
-      q(0163) => q(326),
-      q(0164) => q(040),
-      q(0165) => q(470),
-      q(0166) => q(280),
-      q(0167) => q(262),
-      q(0168) => q(480),
-      q(0169) => q(030),
-      q(0170) => q(020),
-      q(0171) => q(460),
-      q(0172) => q(994),
-      q(0173) => q(995),
-      q(0174) => q(996),
+      q(0048) => q(503),
+      q(0049) => q(286),
+      q(0050) => q(500),
+      q(0051) => q(371),
+      q(0052) => q(501),
+      q(0053) => q(502),
+      q(0054) => q(127),
+      q(0055) => q(125),
+      q(0056) => q(410),
+      q(0057) => q(080),
+      q(0058) => q(450),
+      q(0059) => q(412),
+      q(0060) => q(176),
+      q(0061) => q(610),
+      q(0062) => q(210),
+      q(0063) => q(284),
+      q(0064) => q(361),
+      q(0065) => q(413),
+      q(0066) => q(510),
+      q(0067) => q(357),
+      q(0068) => q(411),
+      q(0069) => q(305),
+      q(0070) => q(355),
+      q(0071) => q(322),
+      q(0072) => q(505),
+      q(0073) => q(288),
+      q(0074) => q(345),
+      q(0075) => q(287),
+      q(0076) => q(436),
+      q(0077) => q(317),
+      q(0078) => q(351),
+      q(0079) => q(356),
+      q(0080) => q(217),
+      q(0081) => q(216),
+      q(0082) => q(215),
+      q(0083) => q(364),
+      q(0084) => q(335),
+      q(0085) => q(336),
+      q(0086) => q(400),
+      q(0087) => q(401),
+      q(0088) => q(399),
+      q(0089) => q(437),
+      q(0090) => q(202),
+      q(0091) => q(116),
+      q(0092) => q(314),
+      q(0093) => q(140),
+      q(0094) => q(139),
+      q(0095) => q(332),
+      q(0096) => q(090),
+      q(0097) => q(438),
+      q(0098) => q(101),
+      q(0099) => q(100),
+      q(0100) => q(347),
+      q(0101) => q(324),
+      q(0102) => q(145),
+      q(0103) => q(218),
+      q(0104) => q(199),
+      q(0105) => q(337),
+      q(0106) => q(323),
+      q(0107) => q(350),
+      q(0108) => q(106),
+      q(0109) => q(159),
+      q(0110) => q(333),
+      q(0111) => q(420),
+      q(0112) => q(165),
+      q(0113) => q(499),
+      q(0114) => q(212),
+      q(0115) => q(261),
+      q(0116) => q(175),
+      q(0117) => q(327),
+      q(0118) => q(219),
+      q(0119) => q(260),
+      q(0120) => q(126),
+      q(0121) => q(263),
+      q(0122) => q(227),
+      q(0123) => q(331),
+      q(0124) => q(131),
+      q(0125) => q(132),
+      q(0126) => q(133),
+      q(0127) => q(115),
+      q(0128) => q(282),
+      q(0129) => q(293),
+      q(0130) => q(130),
+      q(0131) => q(900),
+      q(0132) => q(949),
+      q(0133) => q(363),
+      q(0134) => q(620),
+      q(0135) => q(211),
+      q(0136) => q(123),
+      q(0137) => q(292),
+      q(0138) => q(105),
+      q(0139) => q(344),
+      q(0140) => q(095),
+      q(0141) => q(281),
+      q(0142) => q(319),
+      q(0143) => q(302),
+      q(0144) => q(318),
+      q(0145) => q(348),
+      q(0146) => q(398),
+      q(0147) => q(362),
+      q(0148) => q(316),
+      q(0149) => q(135),
+      q(0150) => q(138),
+      q(0151) => q(137),
+      q(0152) => q(136),
+      q(0153) => q(373),
+      q(0154) => q(321),
+      q(0155) => q(353),
+      q(0156) => q(354),
+      q(0157) => q(346),
+      q(0158) => q(520),
+      q(0159) => q(359),
+      q(0160) => q(340),
+      q(0161) => q(290),
+      q(0162) => q(120),
+      q(0163) => q(370),
+      q(0164) => q(170),
+      q(0165) => q(352),
+      q(0166) => q(330),
+      q(0167) => q(326),
+      q(0168) => q(040),
+      q(0169) => q(470),
+      q(0170) => q(280),
+      q(0171) => q(262),
+      q(0172) => q(480),
+      q(0173) => q(030),
+      q(0174) => q(020),
+      q(0175) => q(460),
+      q(0176) => q(994),
+      q(0177) => q(995),
+      q(0178) => q(993),
+      q(0179) => q(996),
       },
 };
 
index 89a0f47..29e3293 100644 (file)
@@ -3,7 +3,7 @@ Locale::Codes::Script_Retired;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'deprecate_codes' is run.
-#    Generated on: Tue Dec  1 14:45:28 EST 2015
+#    Generated on: Wed Mar  2 09:26:23 EST 2016
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.37';
+$VERSION='3.38';
 
 $Locale::Codes::Retired{'script'}{'alpha'}{'code'} = {
 };
index 4c4d7c1..16aa45b 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Country;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -10,7 +10,7 @@ use warnings;
 use Exporter;
 
 our $VERSION;
-$VERSION='3.37';
+$VERSION='3.38';
 
 our (@ISA,@EXPORT);
 
@@ -44,5 +44,5 @@ sub delete_country_code_alias { Locale::Codes::Country::delete_country_code_alia
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index ae36beb..300adcd 100644 (file)
@@ -174,7 +174,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index c930ff9..1594122 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Currency;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -10,7 +10,7 @@ use warnings;
 use Exporter;
 
 our $VERSION;
-$VERSION='3.37';
+$VERSION='3.38';
 
 our (@ISA,@EXPORT);
 
@@ -44,5 +44,5 @@ sub delete_currency_code_alias { Locale::Codes::Currency::delete_currency_code_a
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index 22cafaf..768ea2d 100644 (file)
@@ -83,7 +83,7 @@ This is the set of three-digit numeric codes from ISO 4217.
 
 =item B<Locale::Currency::add_currency_code_alias(CODE ,NEW_CODE [,CODESET])>
 
-=item B<Locale::Currency::delete_currency_code_alias( ODE [,CODESET])>
+=item B<Locale::Currency::delete_currency_code_alias( CODE [,CODESET])>
 
 These routines are all documented in the L<Locale::Codes::API> man page.
 
@@ -118,7 +118,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001      Michael Hennecke
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index ab4d214..685c5d2 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Language;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -10,7 +10,7 @@ use warnings;
 use Exporter;
 
 our $VERSION;
-$VERSION='3.37';
+$VERSION='3.38';
 
 our (@ISA,@EXPORT);
 
@@ -44,5 +44,5 @@ sub delete_language_code_alias { Locale::Codes::Language::delete_language_code_a
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index d7e4bd8..1dcde89 100644 (file)
@@ -129,7 +129,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 1ea0e18..9ff2210 100644 (file)
@@ -1,7 +1,7 @@
 package Locale::Script;
 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
 # Copyright (C) 2002-2009 Neil Bowers
-# Copyright (c) 2010-2015 Sullivan Beck
+# Copyright (c) 2010-2016 Sullivan Beck
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@ -10,7 +10,7 @@ use warnings;
 use Exporter;
 
 our $VERSION;
-$VERSION='3.37';
+$VERSION='3.38';
 
 our (@ISA,@EXPORT);
 
@@ -44,5 +44,5 @@ sub delete_script_code_alias { Locale::Codes::Script::delete_script_code_alias(@
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index c06f1b1..d555f7a 100644 (file)
@@ -123,7 +123,7 @@ Currently maintained by Sullivan Beck (sbeck@cpan.org).
 
    Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
    Copyright (c) 2001-2010 Neil Bowers
-   Copyright (c) 2010-2015 Sullivan Beck
+   Copyright (c) 2010-2016 Sullivan Beck
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
diff --git a/cpan/Locale-Codes/t/code2country.t b/cpan/Locale-Codes/t/code2country.t
deleted file mode 100644 (file)
index 4fb69c9..0000000
+++ /dev/null
@@ -1,156 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::Country;
-
-%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
-          "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
-          "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}   if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return code2country(@test);
-}
-
-$tests = "
-
-~ _undef_
-
-_undef_ ~ _undef_
-
-zz ~ _undef_
-
-zz LOCALE_CODE_ALPHA_2 ~ _undef_
-
-zz LOCALE_CODE_ALPHA_3 ~ _undef_
-
-zz LOCALE_CODE_NUMERIC ~ _undef_
-
-ja ~ _undef_
-
-uk ~ _undef_
-
-BO
-   ~
-   Bolivia (Plurinational State of)
-
-BO
-LOCALE_CODE_ALPHA_2
-   ~
-   Bolivia (Plurinational State of)
-
-bol
-LOCALE_CODE_ALPHA_3
-   ~
-   Bolivia (Plurinational State of)
-
-pk ~ Pakistan
-
-sn ~ Senegal
-
-us
-   ~
-   United States of America
-
-ad ~ Andorra
-
-ad LOCALE_CODE_ALPHA_2 ~ Andorra
-
-and LOCALE_CODE_ALPHA_3 ~ Andorra
-
-020 LOCALE_CODE_NUMERIC ~ Andorra
-
-48 LOCALE_CODE_NUMERIC ~ Bahrain
-
-zw ~ Zimbabwe
-
-gb
-   ~
-   United Kingdom of Great Britain and Northern Ireland
-
-kz ~ Kazakhstan
-
-mo ~ Macao
-
-tl LOCALE_CODE_ALPHA_2 ~ Timor-Leste
-
-tls LOCALE_CODE_ALPHA_3 ~ Timor-Leste
-
-626 LOCALE_CODE_NUMERIC ~ Timor-Leste
-
-BO LOCALE_CODE_ALPHA_3 ~ _undef_
-
-BO LOCALE_CODE_NUMERIC ~ _undef_
-
-ax
-   ~
-   Aland Islands
-
-ala
-LOCALE_CODE_ALPHA_3
-   ~
-   Aland Islands
-
-248
-LOCALE_CODE_NUMERIC
-   ~
-   Aland Islands
-
-scg
-LOCALE_CODE_ALPHA_3
-   ~
-   _undef_
-
-891
-LOCALE_CODE_NUMERIC
-   ~
-   _undef_
-
-rou LOCALE_CODE_ALPHA_3 ~ Romania
-
-zr  ~ _undef_
-
-zr retired  ~ Zaire
-
-jp alpha-2 not_retired other_arg ~ _undef_
-
-jp _blank_ ~ Japan
-
-jp alpha-15 ~ _undef_
-
-jp alpha-2 retired ~ Japan
-
-";
-
-print "code2country...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
-
diff --git a/cpan/Locale-Codes/t/code2country_old.t b/cpan/Locale-Codes/t/code2country_old.t
deleted file mode 100644 (file)
index d33e9aa..0000000
+++ /dev/null
@@ -1,144 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Country;
-
-%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
-          "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
-          "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}   if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return code2country(@test);
-}
-
-$tests = "
-
-~ _undef_
-
-_undef_ ~ _undef_
-
-zz ~ _undef_
-
-zz LOCALE_CODE_ALPHA_2 ~ _undef_
-
-zz LOCALE_CODE_ALPHA_3 ~ _undef_
-
-zz LOCALE_CODE_NUMERIC ~ _undef_
-
-ja ~ _undef_
-
-uk ~ _undef_
-
-BO
-   ~
-   Bolivia (Plurinational State of)
-
-BO
-LOCALE_CODE_ALPHA_2
-   ~
-   Bolivia (Plurinational State of)
-
-bol
-LOCALE_CODE_ALPHA_3
-   ~
-   Bolivia (Plurinational State of)
-
-pk ~ Pakistan
-
-sn ~ Senegal
-
-us
-   ~
-   United States of America
-
-ad ~ Andorra
-
-ad LOCALE_CODE_ALPHA_2 ~ Andorra
-
-and LOCALE_CODE_ALPHA_3 ~ Andorra
-
-020 LOCALE_CODE_NUMERIC ~ Andorra
-
-48 LOCALE_CODE_NUMERIC ~ Bahrain
-
-zw ~ Zimbabwe
-
-gb
-   ~
-   United Kingdom of Great Britain and Northern Ireland
-
-kz ~ Kazakhstan
-
-mo ~ Macao
-
-tl LOCALE_CODE_ALPHA_2 ~ Timor-Leste
-
-tls LOCALE_CODE_ALPHA_3 ~ Timor-Leste
-
-626 LOCALE_CODE_NUMERIC ~ Timor-Leste
-
-BO LOCALE_CODE_ALPHA_3 ~ _undef_
-
-BO LOCALE_CODE_NUMERIC ~ _undef_
-
-ax
-   ~
-   Aland Islands
-
-ala
-LOCALE_CODE_ALPHA_3
-   ~
-   Aland Islands
-
-248
-LOCALE_CODE_NUMERIC
-   ~
-   Aland Islands
-
-scg
-LOCALE_CODE_ALPHA_3
-   ~
-   _undef_
-
-891
-LOCALE_CODE_NUMERIC
-   ~
-   _undef_
-
-rou LOCALE_CODE_ALPHA_3 ~ Romania
-
-";
-
-print "code2country (old)...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
-
diff --git a/cpan/Locale-Codes/t/code2currency.t b/cpan/Locale-Codes/t/code2currency.t
deleted file mode 100644 (file)
index cab22db..0000000
+++ /dev/null
@@ -1,125 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::Currency;
-
-%type = ( "LOCALE_CURR_ALPHA"    => LOCALE_CURR_ALPHA,
-          "LOCALE_CURR_NUMERIC"  => LOCALE_CURR_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return code2currency(@test);
-}
-
-$tests = "
-
-ukp ~ _undef_
-
-zz ~ _undef_
-
-zzz ~ _undef_
-
-zzzz ~ _undef_
-
-~ _undef_
-
-_undef_ ~ _undef_
-
-BOB
-   ~
-   Boliviano
-
-all
-   ~
-   Lek
-
-bnd
-   ~
-   Brunei Dollar
-
-bob
-   ~
-   Boliviano
-
-byr
-   ~
-   Belarussian Ruble
-
-chf
-   ~
-   Swiss Franc
-
-cop
-   ~
-   Colombian Peso
-
-dkk
-   ~
-   Danish Krone
-
-fjd
-   ~
-   Fiji Dollar
-
-idr
-   ~
-   Rupiah
-
-mmk
-   ~
-   Kyat
-
-mvr
-   ~
-   Rufiyaa
-
-mwk
-   ~
-   Kwacha
-
-rub
-   ~
-   Russian Ruble
-
-zmw
-   ~
-   Zambian Kwacha
-
-zwl
-   ~
-   Zimbabwe Dollar
-
-";
-
-print "code2currency...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
diff --git a/cpan/Locale-Codes/t/code2language.t b/cpan/Locale-Codes/t/code2language.t
deleted file mode 100644 (file)
index 2b69e5f..0000000
+++ /dev/null
@@ -1,220 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::Language;
-
-%type = ( "LOCALE_LANG_ALPHA_2" => LOCALE_LANG_ALPHA_2,
-          "LOCALE_LANG_ALPHA_3" => LOCALE_LANG_ALPHA_3,
-          "LOCALE_LANG_TERM"    => LOCALE_LANG_TERM,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return code2language(@test);
-}
-
-$tests = "
-
-in ~ _undef_
-
-iw ~ _undef_
-
-ji ~ _undef_
-
-jp ~ _undef_
-
-zz ~ _undef_
-
-~ _undef_
-
-_undef_ ~ _undef_
-
-DA
-   ~
-   Danish
-
-aa
-   ~
-   Afar
-
-ae
-   ~
-   Avestan
-
-bs
-   ~
-   Bosnian
-
-ce
-   ~
-   Chechen
-
-ch
-   ~
-   Chamorro
-
-cu
-   ~
-   Church Slavic
-
-cv
-   ~
-   Chuvash
-
-en
-   ~
-   English
-
-eo
-   ~
-   Esperanto
-
-fi
-   ~
-   Finnish
-
-gv
-   ~
-   Manx
-
-he
-   ~
-   Hebrew
-
-ho
-   ~
-   Hiri Motu
-
-hz
-   ~
-   Herero
-
-id
-   ~
-   Indonesian
-
-iu
-   ~
-   Inuktitut
-
-ki
-   ~
-   Kikuyu
-
-kj
-   ~
-   Kuanyama
-
-kv
-   ~
-   Komi
-
-kw
-   ~
-   Cornish
-
-lb
-   ~
-   Luxembourgish
-
-mh
-   ~
-   Marshallese
-
-nb
-   ~
-   Norwegian Bokmal
-
-nd
-   ~
-   North Ndebele
-
-ng
-   ~
-   Ndonga
-
-nn
-   ~
-   Norwegian Nynorsk
-
-nr
-   ~
-   South Ndebele
-
-nv
-   ~
-   Navajo
-
-ny
-   ~
-   Nyanja
-
-oc
-   ~
-   Occitan (post 1500)
-
-os
-   ~
-   Ossetian
-
-pi
-   ~
-   Pali
-
-sc
-   ~
-   Sardinian
-
-se
-   ~
-   Northern Sami
-
-ug
-   ~
-   Uighur
-
-yi
-   ~
-   Yiddish
-
-za
-   ~
-   Zhuang
-
-zu
-   ~
-   Zulu
-
-";
-
-print "code2language...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
diff --git a/cpan/Locale-Codes/t/code2script.t b/cpan/Locale-Codes/t/code2script.t
deleted file mode 100644 (file)
index 63621a4..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::Script;
-
-%type = ( "LOCALE_SCRIPT_ALPHA"   => LOCALE_SCRIPT_ALPHA,
-          "LOCALE_SCRIPT_NUMERIC" => LOCALE_SCRIPT_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return code2script(@test);
-}
-
-$tests = "
-
-~ _undef_
-
-Phnx ~ Phoenician
-
-phnx ~ Phoenician
-
-115 LOCALE_SCRIPT_NUMERIC ~ Phoenician
-
-";
-
-print "code2script...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
index 89c30e9..ff168fc 100644 (file)
@@ -1,14 +1,28 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
+use warnings;
+use strict;
 require 5.002;
 
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'country';
+$::module = 'Locale::Codes::Country';
+
 $runtests=shift(@ARGV);
 if ( -f "t/testfunc.pl" ) {
   require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_country.pl";
   $dir="./lib";
   $tdir="t";
 } elsif ( -f "testfunc.pl" ) {
   require "testfunc.pl";
+  require "vals.pl";
+  require "vals_country.pl";
   $dir="../lib";
   $tdir=".";
 } else {
@@ -16,236 +30,9 @@ if ( -f "t/testfunc.pl" ) {
 }
 
 unshift(@INC,$dir);
-use Locale::Codes::Country;
-
-%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
-          "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
-          "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-
-   if      ($test[0] eq "rename_country") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Codes::Country::rename_country(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_country") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Codes::Country::add_country(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_country") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return Locale::Codes::Country::delete_country(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_country_alias") {
-      shift(@test);
-      return Locale::Codes::Country::add_country_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_country_alias") {
-      shift(@test);
-      return Locale::Codes::Country::delete_country_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "rename_country_code") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Codes::Country::rename_country_code(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_country_code_alias") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Codes::Country::add_country_code_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_country_code_alias") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return Locale::Codes::Country::delete_country_code_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "country2code") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return country2code(@test);
-
-   } else {
-      shift(@test)  if ($test[0] eq "code2country");
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return code2country(@test);
-   }
-}
-
-$tests = "
-
-###################################
-# Test rename_country
-
-gb
-   ~
-   United Kingdom of Great Britain and Northern Ireland
-
-rename_country x1 NewName ~ 0
-
-rename_country gb NewName LOCALE_CODE_FOO ~ 0
-
-rename_country gb Macao ~ 0
-
-rename_country gb NewName LOCALE_CODE_ALPHA_3 ~ 0
-
-gb
-   ~
-   United Kingdom of Great Britain and Northern Ireland
-
-rename_country gb NewName ~ 1
-
-gb
-   ~
-   NewName
-
-us
-   ~
-   United States of America
-
-rename_country
-us
-The United States
-   ~
-   1
-
-us
-   ~
-   The United States
-
-###################################
-# Test add_country
-
-xx ~ _undef_
-
-add_country xx Bolivia ~ 0
-
-add_country fi Xxxxx ~ 0
-
-add_country xx Xxxxx ~ 1
-
-xx ~ Xxxxx
-
-###################################
-# Test add_country_alias
-
-add_country_alias FooBar NewName ~ 0
-
-add_country_alias Australia Angola ~ 0
-
-country2code Australia ~ au
-
-country2code DownUnder ~ _undef_
-
-add_country_alias Australia DownUnder ~ 1
-
-country2code DownUnder ~ au
-
-###################################
-# Test delete_country_alias
-
-country2code uk ~ gb
-
-delete_country_alias Foobar ~ 0
-
-delete_country_alias UK ~ 1
-
-country2code uk ~ _undef_
-
-delete_country_alias Angola ~ 0
-
-###################################
-# Test delete_country
-
-country2code Angola                     ~ ao
-
-country2code Angola LOCALE_CODE_ALPHA_3 ~ ago
-
-delete_country ao                       ~ 1
-
-country2code Angola                     ~ _undef_
-
-country2code Angola LOCALE_CODE_ALPHA_3 ~ ago
-
-###################################
-# Test rename_country_code
-
-code2country zz           ~ _undef_
-
-code2country ar           ~ Argentina
-
-country2code Argentina    ~ ar
-
-rename_country_code ar us ~ 0
-
-rename_country_code ar zz ~ 1
-
-rename_country_code us ar ~ 0
-
-code2country zz           ~ Argentina
-
-code2country ar           ~ Argentina
-
-country2code Argentina    ~ zz
-
-rename_country_code zz ar ~ 1
-
-code2country zz           ~ Argentina
-
-code2country ar           ~ Argentina
-
-country2code Argentina    ~ ar
-
-###################################
-# Test add_country_code_alias and
-# delete_country_code_alias
-
-code2country bm              ~ Bermuda
-
-code2country yy              ~ _undef_
-
-country2code Bermuda         ~ bm
-
-add_country_code_alias bm us ~ 0
-
-add_country_code_alias bm zz ~ 0
-
-add_country_code_alias bm yy ~ 1
-
-code2country bm              ~ Bermuda
-
-code2country yy              ~ Bermuda
-
-country2code Bermuda         ~ bm
-
-delete_country_code_alias us ~ 0
-
-delete_country_code_alias ww ~ 0
-
-delete_country_code_alias yy ~ 1
-
-code2country bm              ~ Bermuda
-
-code2country yy              ~ _undef_
-
-country2code Bermuda         ~ bm
-
-";
 
-print "country (semi-private)...\n";
-test_Func(\&test,$tests,$runtests);
+print "country...\n";
+test_Func(\&test,$::tests,$runtests);
 
 1;
 # Local Variables:
@@ -256,5 +43,5 @@ test_Func(\&test,$tests,$runtests);
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
diff --git a/cpan/Locale-Codes/t/country2code.t b/cpan/Locale-Codes/t/country2code.t
deleted file mode 100644 (file)
index 03c70b8..0000000
+++ /dev/null
@@ -1,216 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::Country;
-
-%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
-          "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
-          "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
-          "LOCALE_CODE_DOM"     => LOCALE_CODE_DOM,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}   if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return country2code(@test);
-}
-
-$tests = "
-
-kazakhstan
-   ~
-   kz
-
-kazakstan
-   ~
-   kz
-
-macao
-   ~
-   mo
-
-macau
-   ~
-   mo
-
-
-~ _undef_
-
-_undef_
-   ~
-   _undef_
-
-Banana
-   ~
-   _undef_
-
-japan
-   ~
-   jp
-
-Japan
-   ~
-   jp
-
-United States
-   ~
-   us
-
-United Kingdom
-   ~
-   gb
-
-Andorra
-   ~
-   ad
-
-Zimbabwe
-   ~
-   zw
-
-Iran
-   ~
-   ir
-
-North Korea
-   ~
-   kp
-
-South Korea
-   ~
-   kr
-
-Libya
-   ~
-   ly
-
-Syrian Arab Republic
-   ~
-   sy
-
-Svalbard
-   ~
-   _undef_
-
-Jan Mayen
-   ~
-   _undef_
-
-USA
-   ~
-   us
-
-United States of America
-   ~
-   us
-
-Great Britain
-   ~
-   gb
-
-Burma
-   ~
-   mm
-
-French Southern and Antarctic Lands
-   ~
-   tf
-
-Aland Islands
-   ~
-   ax
-
-Yugoslavia
-   ~
-   _undef_
-
-Serbia and Montenegro
-   ~
-   _undef_
-
-East Timor
-   ~
-   tl
-
-Zaire
-   ~
-   _undef_
-
-Zaire
-retired
-   ~
-   zr
-
-Congo, The Democratic Republic of the
-   ~
-   cd
-
-Congo, The Democratic Republic of the
-LOCALE_CODE_ALPHA_3
-   ~
-   cod
-
-Congo, The Democratic Republic of the
-LOCALE_CODE_NUMERIC
-   ~
-   180
-
-Syria
-   ~
-   sy
-
-# Last codes in each set (we'll assume that if we got these, there's a good
-# possiblity that we got all the others).
-
-Zimbabwe
-LOCALE_CODE_ALPHA_2
-   ~
-   zw
-
-Zimbabwe
-LOCALE_CODE_ALPHA_3
-   ~
-   zwe
-
-Zimbabwe
-LOCALE_CODE_NUMERIC
-   ~
-   716
-
-Zimbabwe
-LOCALE_CODE_DOM
-   ~
-   zw
-
-";
-
-print "country2code...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
-
diff --git a/cpan/Locale-Codes/t/country2code_old.t b/cpan/Locale-Codes/t/country2code_old.t
deleted file mode 100644 (file)
index 1f5fd5e..0000000
+++ /dev/null
@@ -1,183 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Country;
-
-%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
-          "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
-          "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}   if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return country2code(@test);
-}
-
-$tests = "
-
-kazakhstan
-   ~
-   kz
-
-kazakstan
-   ~
-   kz
-
-macao
-   ~
-   mo
-
-macau
-   ~
-   mo
-
-
-~ _undef_
-
-_undef_
-   ~
-   _undef_
-
-Banana
-   ~
-   _undef_
-
-japan
-   ~
-   jp
-
-Japan
-   ~
-   jp
-
-United States
-   ~
-   us
-
-United Kingdom
-   ~
-   gb
-
-Andorra
-   ~
-   ad
-
-Zimbabwe
-   ~
-   zw
-
-Iran
-   ~
-   ir
-
-North Korea
-   ~
-   kp
-
-South Korea
-   ~
-   kr
-
-Libya
-   ~
-   ly
-
-Syrian Arab Republic
-   ~
-   sy
-
-Svalbard
-   ~
-   _undef_
-
-Jan Mayen
-   ~
-   _undef_
-
-USA
-   ~
-   us
-
-United States of America
-   ~
-   us
-
-Great Britain
-   ~
-   gb
-
-Burma
-   ~
-   mm
-
-French Southern and Antarctic Lands
-   ~
-   tf
-
-Aland Islands
-   ~
-   ax
-
-Yugoslavia
-   ~
-   _undef_
-
-Serbia and Montenegro
-   ~
-   _undef_
-
-East Timor
-   ~
-   tl
-
-Zaire
-   ~
-   _undef_
-
-Congo, The Democratic Republic of the
-   ~
-   cd
-
-Congo, The Democratic Republic of the
-LOCALE_CODE_ALPHA_3
-   ~
-   cod
-
-Congo, The Democratic Republic of the
-LOCALE_CODE_NUMERIC
-   ~
-   180
-
-";
-
-print "country2code (old)...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
-
diff --git a/cpan/Locale-Codes/t/country_code2code.t b/cpan/Locale-Codes/t/country_code2code.t
deleted file mode 100644 (file)
index d10a9e1..0000000
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::Country;
-use Locale::Codes::Constants;
-
-%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
-          "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
-          "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
-        );
-
-sub test {
-   my($code,$type_in,$type_out) = @_;
-   $type_in  = $type{$type_in}   if ($type_in   &&  exists $type{$type_in});
-   $type_out = $type{$type_out}  if ($type_out  &&  exists $type{$type_out});
-
-   return country_code2code($code,$type_in,$type_out);
-}
-
-$tests = "
-
-bo LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_2 ~ bo
-
-bo LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_3 ~ _undef_
-
-zz LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 ~ _undef_
-
-zz LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_3 ~ _undef_
-
-zz LOCALE_CODE_ALPHA_2 0 ~ _undef_
-
-bo LOCALE_CODE_ALPHA_2 0 ~ _undef_
-
-_blank_ 0 0 ~ _undef_
-
-BO  LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 ~ bol
-
-bol LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_2 ~ bo
-
-zwe LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_2 ~ zw
-
-858 LOCALE_CODE_NUMERIC LOCALE_CODE_ALPHA_3 ~ ury
-
-858 LOCALE_CODE_NUMERIC LOCALE_CODE_ALPHA_3 ~ ury
-
-tr  LOCALE_CODE_ALPHA_2 LOCALE_CODE_NUMERIC ~ 792
-
-";
-
-print "country_code2code...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
diff --git a/cpan/Locale-Codes/t/country_code2code_old.t b/cpan/Locale-Codes/t/country_code2code_old.t
deleted file mode 100644 (file)
index 1feb7c1..0000000
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Country;
-use Locale::Codes::Constants;
-
-%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
-          "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
-          "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
-        );
-
-sub test {
-   my($code,$type_in,$type_out) = @_;
-   $type_in  = $type{$type_in}   if ($type_in   &&  exists $type{$type_in});
-   $type_out = $type{$type_out}  if ($type_out  &&  exists $type{$type_out});
-
-   return country_code2code($code,$type_in,$type_out);
-}
-
-$tests = "
-
-bo LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_2 ~ bo
-
-bo LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_3 ~ _undef_
-
-zz LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 ~ _undef_
-
-zz LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_3 ~ _undef_
-
-zz LOCALE_CODE_ALPHA_2 0 ~ _undef_
-
-bo LOCALE_CODE_ALPHA_2 0 ~ _undef_
-
-_blank_ 0 0 ~ _undef_
-
-BO  LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 ~ bol
-
-bol LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_2 ~ bo
-
-zwe LOCALE_CODE_ALPHA_3 LOCALE_CODE_ALPHA_2 ~ zw
-
-858 LOCALE_CODE_NUMERIC LOCALE_CODE_ALPHA_3 ~ ury
-
-858 LOCALE_CODE_NUMERIC LOCALE_CODE_ALPHA_3 ~ ury
-
-tr  LOCALE_CODE_ALPHA_2 LOCALE_CODE_NUMERIC ~ 792
-
-";
-
-print "country_code2code (old)...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
index 38eeaac..f3c042e 100644 (file)
@@ -1,14 +1,28 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
+use warnings;
+use strict;
 require 5.002;
 
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'country';
+$::module = 'Locale::Country';
+
 $runtests=shift(@ARGV);
 if ( -f "t/testfunc.pl" ) {
   require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_country.pl";
   $dir="./lib";
   $tdir="t";
 } elsif ( -f "testfunc.pl" ) {
   require "testfunc.pl";
+  require "vals.pl";
+  require "vals_country.pl";
   $dir="../lib";
   $tdir=".";
 } else {
@@ -16,222 +30,9 @@ if ( -f "t/testfunc.pl" ) {
 }
 
 unshift(@INC,$dir);
-use Locale::Country;
-
-%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
-          "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
-          "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-
-   if      ($test[0] eq "rename_country") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Country::rename_country(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_country") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Country::add_country(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_country") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return Locale::Country::delete_country(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_country_alias") {
-      shift(@test);
-      return Locale::Country::add_country_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_country_alias") {
-      shift(@test);
-      return Locale::Country::delete_country_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "rename_country_code") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Country::rename_country_code(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_country_code_alias") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Country::add_country_code_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_country_code_alias") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return Locale::Country::delete_country_code_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "country2code") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return country2code(@test);
-
-   } else {
-      shift(@test)  if ($test[0] eq "code2country");
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return code2country(@test);
-   }
-}
-
-$tests = "
-
-###################################
-# Test rename_country
-
-gb
-   ~
-   United Kingdom of Great Britain and Northern Ireland
-
-rename_country x1 NewName ~ 0
-
-rename_country gb NewName LOCALE_CODE_FOO ~ 0
-
-rename_country gb Macao ~ 0
-
-rename_country gb NewName LOCALE_CODE_ALPHA_3 ~ 0
-
-gb
-   ~
-   United Kingdom of Great Britain and Northern Ireland
-
-rename_country gb NewName ~ 1
-
-gb
-   ~
-   NewName
-
-###################################
-# Test add_country
-
-xx ~ _undef_
-
-add_country xx Bolivia ~ 0
-
-add_country fi Xxxxx ~ 0
-
-add_country xx Xxxxx ~ 1
-
-xx ~ Xxxxx
-
-###################################
-# Test add_country_alias
-
-add_country_alias FooBar NewName ~ 0
-
-add_country_alias Australia Angola ~ 0
-
-country2code Australia ~ au
-
-country2code DownUnder ~ _undef_
-
-add_country_alias Australia DownUnder ~ 1
-
-country2code DownUnder ~ au
-
-###################################
-# Test delete_country_alias
-
-country2code uk ~ gb
-
-delete_country_alias Foobar ~ 0
-
-delete_country_alias UK ~ 1
-
-country2code uk ~ _undef_
-
-delete_country_alias Angola ~ 0
-
-###################################
-# Test delete_country
-
-country2code Angola                     ~ ao
-
-country2code Angola LOCALE_CODE_ALPHA_3 ~ ago
-
-delete_country ao                       ~ 1
-
-country2code Angola                     ~ _undef_
-
-country2code Angola LOCALE_CODE_ALPHA_3 ~ ago
-
-###################################
-# Test rename_country_code
-
-code2country zz           ~ _undef_
-
-code2country ar           ~ Argentina
-
-country2code Argentina    ~ ar
-
-rename_country_code ar us ~ 0
-
-rename_country_code ar zz ~ 1
-
-rename_country_code us ar ~ 0
-
-code2country zz           ~ Argentina
-
-code2country ar           ~ Argentina
-
-country2code Argentina    ~ zz
-
-rename_country_code zz ar ~ 1
-
-code2country zz           ~ Argentina
-
-code2country ar           ~ Argentina
-
-country2code Argentina    ~ ar
-
-###################################
-# Test add_country_code_alias and
-# delete_country_code_alias
-
-code2country bm              ~ Bermuda
-
-code2country yy              ~ _undef_
-
-country2code Bermuda         ~ bm
-
-add_country_code_alias bm us ~ 0
-
-add_country_code_alias bm zz ~ 0
-
-add_country_code_alias bm yy ~ 1
-
-code2country bm              ~ Bermuda
-
-code2country yy              ~ Bermuda
-
-country2code Bermuda         ~ bm
-
-delete_country_code_alias us ~ 0
-
-delete_country_code_alias ww ~ 0
-
-delete_country_code_alias yy ~ 1
-
-code2country bm              ~ Bermuda
-
-code2country yy              ~ _undef_
-
-country2code Bermuda         ~ bm
-
-";
 
-print "country (old; semi-private)...\n";
-test_Func(\&test,$tests,$runtests);
+print "country (old)...\n";
+test_Func(\&test,$::tests,$runtests);
 
 1;
 # Local Variables:
@@ -242,5 +43,5 @@ test_Func(\&test,$tests,$runtests);
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
similarity index 54%
rename from cpan/Locale-Codes/t/code2langfam.t
rename to cpan/Locale-Codes/t/currency.t
index 691a69f..d0ff9ae 100644 (file)
@@ -1,14 +1,28 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
+use warnings;
+use strict;
 require 5.002;
 
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'currency';
+$::module = 'Locale::Codes::Currency';
+
 $runtests=shift(@ARGV);
 if ( -f "t/testfunc.pl" ) {
   require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_currency.pl";
   $dir="./lib";
   $tdir="t";
 } elsif ( -f "testfunc.pl" ) {
   require "testfunc.pl";
+  require "vals.pl";
+  require "vals_currency.pl";
   $dir="../lib";
   $tdir=".";
 } else {
@@ -16,30 +30,9 @@ if ( -f "t/testfunc.pl" ) {
 }
 
 unshift(@INC,$dir);
-use Locale::Codes::LangFam;
-
-%type = ( "LOCALE_LANGFAM_ALPHA"    => LOCALE_LANGFAM_ALPHA,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return code2langfam(@test);
-}
-
-$tests = "
-
-zzz ~ _undef_
-
-apa
-   ~
-   Apache languages
-
-";
 
-print "code2langfam...\n";
-test_Func(\&test,$tests,$runtests);
+print "currency...\n";
+test_Func(\&test,$::tests,$runtests);
 
 1;
 # Local Variables:
@@ -50,5 +43,5 @@ test_Func(\&test,$tests,$runtests);
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
diff --git a/cpan/Locale-Codes/t/currency2code.t b/cpan/Locale-Codes/t/currency2code.t
deleted file mode 100644 (file)
index bfe358f..0000000
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::Currency;
-
-%type = ( "LOCALE_CURR_ALPHA"    => LOCALE_CURR_ALPHA,
-          "LOCALE_CURR_NUMERIC"  => LOCALE_CURR_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return currency2code(@test);
-}
-
-$tests = "
-
-_blank_ ~ _undef_
-
-Banana ~ _undef_
-
-~ _undef_
-
-_undef_ ~ _undef_
-
-
-Canadian Dollar
-   ~
-   CAD
-
-Belize Dollar
-   ~
-   BZD
-
-PULA
-   ~
-   BWP
-
-Riel
-   ~
-   KHR
-
-Zimbabwe Dollar
-   ~
-   ZWL
-
-";
-
-print "currency2code...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
diff --git a/cpan/Locale-Codes/t/currency2code_old.t b/cpan/Locale-Codes/t/currency2code_old.t
deleted file mode 100644 (file)
index 1a3cc3d..0000000
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Currency;
-
-%type = ( "LOCALE_CURR_ALPHA"    => LOCALE_CURR_ALPHA,
-          "LOCALE_CURR_NUMERIC"  => LOCALE_CURR_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return currency2code(@test);
-}
-
-$tests = "
-
-_blank_ ~ _undef_
-
-Banana ~ _undef_
-
-~ _undef_
-
-_undef_ ~ _undef_
-
-
-Canadian Dollar
-   ~
-   CAD
-
-Belize Dollar
-   ~
-   BZD
-
-PULA
-   ~
-   BWP
-
-Riel
-   ~
-   KHR
-
-Zimbabwe Dollar
-   ~
-   ZWL
-
-";
-
-print "currency2code (old)...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
similarity index 54%
rename from cpan/Locale-Codes/t/code2langext.t
rename to cpan/Locale-Codes/t/currency_old.t
index 77bea86..b63036c 100644 (file)
@@ -1,14 +1,28 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
+use warnings;
+use strict;
 require 5.002;
 
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'currency';
+$::module = 'Locale::Currency';
+
 $runtests=shift(@ARGV);
 if ( -f "t/testfunc.pl" ) {
   require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_currency.pl";
   $dir="./lib";
   $tdir="t";
 } elsif ( -f "testfunc.pl" ) {
   require "testfunc.pl";
+  require "vals.pl";
+  require "vals_currency.pl";
   $dir="../lib";
   $tdir=".";
 } else {
@@ -16,30 +30,9 @@ if ( -f "t/testfunc.pl" ) {
 }
 
 unshift(@INC,$dir);
-use Locale::Codes::LangExt;
-
-%type = ( "LOCALE_LANGEXT_ALPHA"    => LOCALE_LANGEXT_ALPHA,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return code2langext(@test);
-}
-
-$tests = "
-
-zzz ~ _undef_
-
-acm
-   ~
-   Mesopotamian Arabic
-
-";
 
-print "code2langext...\n";
-test_Func(\&test,$tests,$runtests);
+print "currency (old)...\n";
+test_Func(\&test,$::tests,$runtests);
 
 1;
 # Local Variables:
@@ -50,5 +43,5 @@ test_Func(\&test,$tests,$runtests);
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
similarity index 54%
rename from cpan/Locale-Codes/t/code2langvar.t
rename to cpan/Locale-Codes/t/langext.t
index 6e43a81..6c2baf9 100644 (file)
@@ -1,14 +1,28 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
+use warnings;
+use strict;
 require 5.002;
 
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'langext';
+$::module = 'Locale::Codes::LangExt';
+
 $runtests=shift(@ARGV);
 if ( -f "t/testfunc.pl" ) {
   require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_langext.pl";
   $dir="./lib";
   $tdir="t";
 } elsif ( -f "testfunc.pl" ) {
   require "testfunc.pl";
+  require "vals.pl";
+  require "vals_langext.pl";
   $dir="../lib";
   $tdir=".";
 } else {
@@ -16,30 +30,9 @@ if ( -f "t/testfunc.pl" ) {
 }
 
 unshift(@INC,$dir);
-use Locale::Codes::LangVar;
-
-%type = ( "LOCALE_LANGVAR_ALPHA"    => LOCALE_LANGVAR_ALPHA,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return code2langvar(@test);
-}
-
-$tests = "
-
-zzz ~ _undef_
-
-arevela
-   ~
-   Eastern Armenian
-
-";
 
-print "code2langvar...\n";
-test_Func(\&test,$tests,$runtests);
+print "langext...\n";
+test_Func(\&test,$::tests,$runtests);
 
 1;
 # Local Variables:
@@ -50,5 +43,5 @@ test_Func(\&test,$tests,$runtests);
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
diff --git a/cpan/Locale-Codes/t/langext2code.t b/cpan/Locale-Codes/t/langext2code.t
deleted file mode 100644 (file)
index 0313f1a..0000000
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::LangExt;
-
-%type = ( "LOCALE_LANGEXT_ALPHA"    => LOCALE_LANGEXT_ALPHA,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return langext2code(@test);
-}
-
-$tests = "
-
-_blank_ ~ _undef_
-
-Mesopotamian Arabic
-   ~
-   acm
-
-";
-
-print "langext2code...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
similarity index 54%
rename from cpan/Locale-Codes/t/langfam2code.t
rename to cpan/Locale-Codes/t/langfam.t
index b3026f0..f5e67e4 100644 (file)
@@ -1,14 +1,28 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
+use warnings;
+use strict;
 require 5.002;
 
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'langfam';
+$::module = 'Locale::Codes::LangFam';
+
 $runtests=shift(@ARGV);
 if ( -f "t/testfunc.pl" ) {
   require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_langfam.pl";
   $dir="./lib";
   $tdir="t";
 } elsif ( -f "testfunc.pl" ) {
   require "testfunc.pl";
+  require "vals.pl";
+  require "vals_langfam.pl";
   $dir="../lib";
   $tdir=".";
 } else {
@@ -16,30 +30,9 @@ if ( -f "t/testfunc.pl" ) {
 }
 
 unshift(@INC,$dir);
-use Locale::Codes::LangFam;
-
-%type = ( "LOCALE_LANGFAM_ALPHA"    => LOCALE_LANGFAM_ALPHA,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return langfam2code(@test);
-}
-
-$tests = "
-
-_blank_ ~ _undef_
-
-Apache languages
-   ~
-   apa
-
-";
 
-print "langfam2code...\n";
-test_Func(\&test,$tests,$runtests);
+print "langfam...\n";
+test_Func(\&test,$::tests,$runtests);
 
 1;
 # Local Variables:
@@ -50,5 +43,5 @@ test_Func(\&test,$tests,$runtests);
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
index 82051b9..0af300f 100644 (file)
@@ -1,14 +1,28 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
+use warnings;
+use strict;
 require 5.002;
 
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'language';
+$::module = 'Locale::Codes::Language';
+
 $runtests=shift(@ARGV);
 if ( -f "t/testfunc.pl" ) {
   require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_language.pl";
   $dir="./lib";
   $tdir="t";
 } elsif ( -f "testfunc.pl" ) {
   require "testfunc.pl";
+  require "vals.pl";
+  require "vals_language.pl";
   $dir="../lib";
   $tdir=".";
 } else {
@@ -16,75 +30,9 @@ if ( -f "t/testfunc.pl" ) {
 }
 
 unshift(@INC,$dir);
-use Locale::Codes::Language;
-
-%type = ( "LOCALE_LANG_ALPHA_2" => LOCALE_LANG_ALPHA_2,
-          "LOCALE_LANG_ALPHA_3" => LOCALE_LANG_ALPHA_3,
-          "LOCALE_LANG_TERM"    => LOCALE_LANG_TERM,
-        );
-
-sub test {
-   my(@test) = @_;
-
-   if      ($test[0] eq "rename_language") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Codes::Language::rename_language(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_language") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Codes::Language::add_language(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_language") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return Locale::Codes::Language::delete_language(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_language_alias") {
-      shift(@test);
-      return Locale::Codes::Language::add_language_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_language_alias") {
-      shift(@test);
-      return Locale::Codes::Language::delete_language_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "language2code") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return language2code(@test);
-
-   } else {
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return code2language(@test);
-   }
-}
-
-$tests = "
-
-zu ~ Zulu
-
-rename_language zu NewName LOCALE_LANG_FOO ~ 0
-
-rename_language zu English LOCALE_LANG_ALPHA_2 ~ 0
-
-rename_language zu NewName LOCALE_LANG_ALPHA_3 ~ 0
-
-zu ~ Zulu
-
-rename_language zu NewName LOCALE_LANG_ALPHA_2 ~ 1
-
-zu ~ NewName
-
-";
 
-print "language (semi-private)...\n";
-test_Func(\&test,$tests,$runtests);
+print "language...\n";
+test_Func(\&test,$::tests,$runtests);
 
 1;
 # Local Variables:
@@ -95,5 +43,5 @@ test_Func(\&test,$tests,$runtests);
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
diff --git a/cpan/Locale-Codes/t/language2code.t b/cpan/Locale-Codes/t/language2code.t
deleted file mode 100644 (file)
index 111b812..0000000
+++ /dev/null
@@ -1,115 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::Language;
-
-%type = ( "LOCALE_LANG_ALPHA_2" => LOCALE_LANG_ALPHA_2,
-          "LOCALE_LANG_ALPHA_3" => LOCALE_LANG_ALPHA_3,
-          "LOCALE_LANG_TERM"    => LOCALE_LANG_TERM,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return language2code(@test);
-}
-
-$tests = "
-
-Banana ~ _undef_
-
-~ _undef_
-
-_undef_ ~ _undef_
-
-Afar
-   ~
-   aa
-
-ESTONIAN
-   ~
-   et
-
-French
-   ~
-   fr
-
-Greek
-   ~
-   el
-
-Japanese
-   ~
-   ja
-
-Zulu
-   ~
-   zu
-
-english
-   ~
-   en
-
-japanese
-   ~
-   ja
-
-# Last ones in the list
-
-Zulu
-LOCALE_LANG_ALPHA_2
-   ~
-   zu
-
-Zaza
-LOCALE_LANG_ALPHA_3
-   ~
-   zza
-
-Welsh
-LOCALE_LANG_TERM
-   ~
-   cym
-
-Zande languages
-LOCALE_LANG_ALPHA_3
-   ~
-   znd
-
-Zuojiang Zhuang
-LOCALE_LANG_ALPHA_3
-   ~
-   zzj
-
-";
-
-print "language2code...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
index 217ba26..b997002 100644 (file)
@@ -1,14 +1,28 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
+use warnings;
+use strict;
 require 5.002;
 
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'language';
+$::module = 'Locale::Language';
+
 $runtests=shift(@ARGV);
 if ( -f "t/testfunc.pl" ) {
   require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_language.pl";
   $dir="./lib";
   $tdir="t";
 } elsif ( -f "testfunc.pl" ) {
   require "testfunc.pl";
+  require "vals.pl";
+  require "vals_language.pl";
   $dir="../lib";
   $tdir=".";
 } else {
@@ -16,75 +30,9 @@ if ( -f "t/testfunc.pl" ) {
 }
 
 unshift(@INC,$dir);
-use Locale::Language;
-
-%type = ( "LOCALE_LANG_ALPHA_2" => LOCALE_LANG_ALPHA_2,
-          "LOCALE_LANG_ALPHA_3" => LOCALE_LANG_ALPHA_3,
-          "LOCALE_LANG_TERM"    => LOCALE_LANG_TERM,
-        );
-
-sub test {
-   my(@test) = @_;
-
-   if      ($test[0] eq "rename_language") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Language::rename_language(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_language") {
-      shift(@test);
-      $test[2]  = $type{$test[2]}
-        if (@test == 3  &&  $test[2]  &&  exists $type{$test[2]});
-      return Locale::Language::add_language(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_language") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return Locale::Language::delete_language(@test,"nowarn");
-
-   } elsif ($test[0] eq "add_language_alias") {
-      shift(@test);
-      return Locale::Language::add_language_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "delete_language_alias") {
-      shift(@test);
-      return Locale::Language::delete_language_alias(@test,"nowarn");
-
-   } elsif ($test[0] eq "language2code") {
-      shift(@test);
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return language2code(@test);
-
-   } else {
-      $test[1]  = $type{$test[1]}
-        if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-      return code2language(@test);
-   }
-}
-
-$tests = "
-
-zu ~ Zulu
-
-rename_language zu NewName LOCALE_LANG_FOO ~ 0
-
-rename_language zu English LOCALE_LANG_ALPHA_2 ~ 0
-
-rename_language zu NewName LOCALE_LANG_ALPHA_3 ~ 0
-
-zu ~ Zulu
-
-rename_language zu NewName LOCALE_LANG_ALPHA_2 ~ 1
-
-zu ~ NewName
-
-";
 
-print "language (old; semi-private)...\n";
-test_Func(\&test,$tests,$runtests);
+print "language (old)...\n";
+test_Func(\&test,$::tests,$runtests);
 
 1;
 # Local Variables:
@@ -95,5 +43,5 @@ test_Func(\&test,$tests,$runtests);
 # cperl-continued-brace-offset: 0
 # cperl-brace-offset: 0
 # cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
 # End:
diff --git a/cpan/Locale-Codes/t/langvar.t b/cpan/Locale-Codes/t/langvar.t
new file mode 100644 (file)
index 0000000..08703e4
--- /dev/null
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+require 5.002;
+
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'langvar';
+$::module = 'Locale::Codes::LangVar';
+
+$runtests=shift(@ARGV);
+if ( -f "t/testfunc.pl" ) {
+  require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_langvar.pl";
+  $dir="./lib";
+  $tdir="t";
+} elsif ( -f "testfunc.pl" ) {
+  require "testfunc.pl";
+  require "vals.pl";
+  require "vals_langvar.pl";
+  $dir="../lib";
+  $tdir=".";
+} else {
+  die "ERROR: cannot find testfunc.pl\n";
+}
+
+unshift(@INC,$dir);
+
+print "langvar...\n";
+test_Func(\&test,$::tests,$runtests);
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: 0
+# End:
diff --git a/cpan/Locale-Codes/t/langvar2code.t b/cpan/Locale-Codes/t/langvar2code.t
deleted file mode 100644 (file)
index 089c87b..0000000
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::LangVar;
-
-%type = ( "LOCALE_LANGVAR_ALPHA"    => LOCALE_LANGVAR_ALPHA,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return langvar2code(@test);
-}
-
-$tests = "
-
-_blank_ ~ _undef_
-
-Eastern Armenian
-   ~
-   arevela
-
-";
-
-print "langvar2code...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
diff --git a/cpan/Locale-Codes/t/script.t b/cpan/Locale-Codes/t/script.t
new file mode 100644 (file)
index 0000000..295ed82
--- /dev/null
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+require 5.002;
+
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'script';
+$::module = 'Locale::Codes::Script';
+
+$runtests=shift(@ARGV);
+if ( -f "t/testfunc.pl" ) {
+  require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_script.pl";
+  $dir="./lib";
+  $tdir="t";
+} elsif ( -f "testfunc.pl" ) {
+  require "testfunc.pl";
+  require "vals.pl";
+  require "vals_script.pl";
+  $dir="../lib";
+  $tdir=".";
+} else {
+  die "ERROR: cannot find testfunc.pl\n";
+}
+
+unshift(@INC,$dir);
+
+print "script...\n";
+test_Func(\&test,$::tests,$runtests);
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: 0
+# End:
diff --git a/cpan/Locale-Codes/t/script2code.t b/cpan/Locale-Codes/t/script2code.t
deleted file mode 100644 (file)
index ae04118..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Codes::Script;
-
-%type = ( "LOCALE_SCRIPT_ALPHA"     => LOCALE_SCRIPT_ALPHA,
-          "LOCALE_SCRIPT_NUMERIC" => LOCALE_SCRIPT_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return script2code(@test);
-}
-
-$tests = "
-
-~ _undef_
-
-Phoenician ~ Phnx
-
-Phoenician LOCALE_SCRIPT_NUMERIC ~ 115
-
-";
-
-print "script2code...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
diff --git a/cpan/Locale-Codes/t/script2code_old.t b/cpan/Locale-Codes/t/script2code_old.t
deleted file mode 100644 (file)
index ea8a095..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl -w
-
-require 5.002;
-
-$runtests=shift(@ARGV);
-if ( -f "t/testfunc.pl" ) {
-  require "t/testfunc.pl";
-  $dir="./lib";
-  $tdir="t";
-} elsif ( -f "testfunc.pl" ) {
-  require "testfunc.pl";
-  $dir="../lib";
-  $tdir=".";
-} else {
-  die "ERROR: cannot find testfunc.pl\n";
-}
-
-unshift(@INC,$dir);
-use Locale::Script;
-
-%type = ( "LOCALE_SCRIPT_ALPHA"   => LOCALE_SCRIPT_ALPHA,
-          "LOCALE_SCRIPT_NUMERIC" => LOCALE_SCRIPT_NUMERIC,
-        );
-
-sub test {
-   my(@test) = @_;
-   $test[1]  = $type{$test[1]}
-     if (@test == 2  &&  $test[1]  &&  exists $type{$test[1]});
-   return script2code(@test);
-}
-
-$tests = "
-
-~ _undef_
-
-Phoenician ~ Phnx
-
-Phoenician LOCALE_SCRIPT_NUMERIC ~ 115
-
-";
-
-print "script2code (old)...\n";
-test_Func(\&test,$tests,$runtests);
-
-1;
-# Local Variables:
-# mode: cperl
-# indent-tabs-mode: nil
-# cperl-indent-level: 3
-# cperl-continued-statement-offset: 2
-# cperl-continued-brace-offset: 0
-# cperl-brace-offset: 0
-# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
-# End:
diff --git a/cpan/Locale-Codes/t/script_old.t b/cpan/Locale-Codes/t/script_old.t
new file mode 100644 (file)
index 0000000..82968c5
--- /dev/null
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+require 5.002;
+
+my($runtests,$dir,$tdir);
+$::type          = '';
+$::module        = '';
+$::tests         = '';
+
+$::type   = 'script';
+$::module = 'Locale::Script';
+
+$runtests=shift(@ARGV);
+if ( -f "t/testfunc.pl" ) {
+  require "t/testfunc.pl";
+  require "t/vals.pl";
+  require "t/vals_script.pl";
+  $dir="./lib";
+  $tdir="t";
+} elsif ( -f "testfunc.pl" ) {
+  require "testfunc.pl";
+  require "vals.pl";
+  require "vals_script.pl";
+  $dir="../lib";
+  $tdir=".";
+} else {
+  die "ERROR: cannot find testfunc.pl\n";
+}
+
+unshift(@INC,$dir);
+
+print "script (old)...\n";
+test_Func(\&test,$::tests,$runtests);
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: 0
+# End:
index bd6a8aa..b83c774 100644 (file)
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# Copyright (c) 1996-2015 Sullivan Beck. All rights reserved.
+# Copyright (c) 1996-2016 Sullivan Beck. All rights reserved.
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
@@