[PATCH] Bump Locale-Codes from 3.36 to 3.37

Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>

30 files changed, 206 insertions, 176 deletions

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 85870540c6..4d5657606f 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -689,7 +689,7 @@ use File::Glob qw(:case);
     },
 
     'Locale-Codes' => {
-        'DISTRIBUTION' => 'SBECK/Locale-Codes-3.36.tar.gz',
+        'DISTRIBUTION' => 'SBECK/Locale-Codes-3.37.tar.gz',
         'FILES'        => q[cpan/Locale-Codes],
         'EXCLUDED'     => [
             qw( README.first
diff --git a/cpan/Locale-Codes/lib/Locale/Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes.pm
index fa69aba78a..118c277c5b 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes.pm
@@ -31,7 +31,7 @@ our($VERSION,%Data,%Retired);
 # $Retired{ TYPE }{ CODESET }{ code }{ CODE } = NAME
 #                            { name }{ NAME } = [CODE,NAME]  (the key is lowercase)
 
-$VERSION='3.36';
+$VERSION='3.37';
 
 #=======================================================================
 #
@@ -43,14 +43,14 @@ sub _code {
    return 1  if (@_ > 3);
 
    my($type,$code,$codeset) = @_;
-   $code = ''  if (! $code);
+   $code = ''  if (! defined $code);
 
    # Determine the codeset
 
    $codeset = $ALL_CODESETS{$type}{'default'}
      if (! defined($codeset)  ||  $codeset eq '');
    $codeset = lc($codeset);
-   return 1  if (! exists $ALL_CODESETS{$type}{'codesets'}{$codeset});
+   return (1)  if (! exists $ALL_CODESETS{$type}{'codesets'}{$codeset});
    return (0,$code,$codeset)  if (! $code);
 
    # Determine the properties of the codeset
@@ -59,20 +59,29 @@ sub _code {
 
    if      ($op eq 'lc') {
       $code = lc($code);
+      return (0,$code,$codeset);
+   }
 
-   } elsif ($op eq 'uc') {
+   if ($op eq 'uc') {
       $code = uc($code);
+      return (0,$code,$codeset);
+   }
 
-   } elsif ($op eq 'ucfirst') {
+   if ($op eq 'ucfirst') {
       $code = ucfirst(lc($code));
+      return (0,$code,$codeset);
+   }
 
-   } elsif ($op eq 'numeric') {
+   # uncoverable branch false
+   if ($op eq 'numeric') {
       return (1)  unless ($code =~ /^\d+$/);
       my $l = $args[0];
       $code    = sprintf("%.${l}d", $code);
+      return (0,$code,$codeset);
    }
 
-   return (0,$code,$codeset);
+   # uncoverable statement
+   die "ERROR: codeset not defined correctly: $codeset [$op]\n";
 }
 
 #=======================================================================
@@ -90,8 +99,7 @@ sub _code2name {
    }
 
    my($err,$code,$codeset) = _code($type,@args);
-   return undef  if ($err  ||
-                     ! defined $code);
+   return undef  if ($err);
 
    $code = $Data{$type}{'codealias'}{$codeset}{$code}
      if (exists $Data{$type}{'codealias'}{$codeset}{$code});
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Changes.pod b/cpan/Locale-Codes/lib/Locale/Codes/Changes.pod
index c5a8ee57c5..199aa96d5b 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Changes.pod
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Changes.pod
@@ -30,7 +30,9 @@ codes, I will add them to the module and release a new version.
 
 =head1 VERSION 3.38  (planned 2016-03-01; sbeck)
 
-=head1 VERSION 3.37  (planned 2015-12-01; sbeck)
+=head1 VERSION 3.37  (2015-12-01; sbeck)
+
+NEW CODE(s)
 
 =head1 VERSION 3.36  (2015-09-01; sbeck)
 
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Constants.pm b/cpan/Locale-Codes/lib/Locale/Codes/Constants.pm
index d4efcfc591..44e8f6da7f 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Constants.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Constants.pm
@@ -17,7 +17,7 @@ require Exporter;
 our($VERSION,@ISA,@EXPORT);
 our(%ALL_CODESETS);
 
-$VERSION='3.36';
+$VERSION='3.37';
 @ISA     = qw(Exporter);
 @EXPORT  = qw(LOCALE_CODE_ALPHA_2
               LOCALE_CODE_ALPHA_3
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Country.pm b/cpan/Locale-Codes/lib/Locale/Codes/Country.pm
index 4dd6b803c1..a182431dc0 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Country.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Country.pm
@@ -22,7 +22,7 @@ use Locale::Codes::Country_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.36';
+$VERSION='3.37';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2country
                 country2code
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Country_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/Country_Codes.pm
index 41e46356bb..11262e8548 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Country_Codes.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Country_Codes.pm
@@ -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 Sep  1 09:05:01 EDT 2015
+#    Generated on: Tue Dec  1 14:41:05 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Data{'country'}{'id'} = '0250';
 
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Country_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/Country_Retired.pm
index c349bb9a9e..c07e44a4bd 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Country_Retired.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Country_Retired.pm
@@ -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 Sep  1 09:20:52 EDT 2015
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Retired{'country'}{'alpha-2'}{'code'} = {
    q(an) => q(Netherlands Antilles),
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Currency.pm b/cpan/Locale-Codes/lib/Locale/Codes/Currency.pm
index 4a4648cdc2..3d1f406383 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Currency.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Currency.pm
@@ -22,7 +22,7 @@ use Locale::Codes::Currency_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.36';
+$VERSION='3.37';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2currency
                 currency2code
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Currency_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/Currency_Codes.pm
index e5c317d605..d1d39b7002 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Currency_Codes.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Currency_Codes.pm
@@ -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 Sep  1 09:16:18 EDT 2015
+#    Generated on: Tue Dec  1 14:44:02 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Data{'currency'}{'id'} = '0177';
 
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Currency_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/Currency_Retired.pm
index 8c50f94184..483238fe87 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Currency_Retired.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Currency_Retired.pm
@@ -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 Sep  1 09:20:52 EDT 2015
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Retired{'currency'}{'alpha'}{'code'} = {
    q(ADP) => q(Andorran Peseta),
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm
index 6f0910ad8c..6376da26fe 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm
@@ -20,7 +20,7 @@ use Locale::Codes::LangExt_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.36';
+$VERSION='3.37';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2langext
                 langext2code
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Codes.pm
index 96e48b0f73..e2e1834603 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Codes.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Codes.pm
@@ -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 Sep  1 09:16:39 EDT 2015
+#    Generated on: Tue Dec  1 14:44:16 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Data{'langext'}{'id'} = '0230';
 
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Retired.pm
index 394f04eed5..a0ec2d2817 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Retired.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Retired.pm
@@ -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 Sep  1 09:20:52 EDT 2015
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Retired{'langext'}{'alpha'}{'code'} = {
    q(yds) => q(Yiddish Sign Language),
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm
index 32e224b6c5..fccec91784 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm
@@ -20,7 +20,7 @@ use Locale::Codes::LangFam_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.36';
+$VERSION='3.37';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2langfam
                 langfam2code
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Codes.pm
index 8760a5efe9..090806199a 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Codes.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Codes.pm
@@ -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 Sep  1 09:17:53 EDT 2015
+#    Generated on: Tue Dec  1 14:44:25 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Data{'langfam'}{'id'} = '0116';
 
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Retired.pm
index 4478c1042c..2fce421697 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Retired.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Retired.pm
@@ -10,7 +10,7 @@ use warnings;
 require 5.002;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Retired{'langfam'}{'alpha'}{'code'} = {
 };
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pm
index 4cd4ec35f5..23b20cffb0 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pm
@@ -20,7 +20,7 @@ use Locale::Codes::LangVar_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.36';
+$VERSION='3.37';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2langvar
                 langvar2code
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Codes.pm
index 5fb4c59a44..7613dd056c 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Codes.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Codes.pm
@@ -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 Sep  1 09:17:43 EDT 2015
+#    Generated on: Tue Dec  1 14:44:22 EST 2015
 
 use strict;
 require 5.006;
@@ -11,9 +11,9 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
-$Locale::Codes::Data{'langvar'}{'id'} = '0072';
+$Locale::Codes::Data{'langvar'}{'id'} = '0073';
 
 $Locale::Codes::Data{'langvar'}{'id2names'} = {
    q(0001) => [
@@ -152,10 +152,13 @@ $Locale::Codes::Data{'langvar'}{'id2names'} = {
       q(Nadiza dialect),
       ],
    q(0044) => [
+      q(Newfoundland English),
+      ],
+   q(0045) => [
       q(The Gniva dialect of Resian),
       q(The Njiva dialect of Resian),
       ],
-   q(0045) => [
+   q(0046) => [
       q(Volapuk nulik),
       q(Volapuk perevidol),
       q(Volapuk nuladik),
@@ -164,89 +167,89 @@ $Locale::Codes::Data{'langvar'}{'id2names'} = {
       q(Revised Volapuk),
       q(Modern Volapuk),
       ],
-   q(0046) => [
+   q(0047) => [
       q(The Oseacco dialect of Resian),
       q(The Osojane dialect of Resian),
       ],
-   q(0047) => [
+   q(0048) => [
       q(Oxford English Dictionary spelling),
       ],
-   q(0048) => [
+   q(0049) => [
       q(Pamaka dialect),
       ],
-   q(0049) => [
+   q(0050) => [
       q(Petrine orthography),
       ],
-   q(0050) => [
+   q(0051) => [
       q(Pinyin romanization),
       ],
-   q(0051) => [
+   q(0052) => [
       q(Polytonic Greek),
       ],
-   q(0052) => [
+   q(0053) => [
       q(Puter idiom of Romansh),
       ],
-   q(0053) => [
+   q(0054) => [
       q(Volapuk rigik),
       q(Schleyer's Volapuk),
       q(Original Volapuk),
       q(Classic Volapuk),
       ],
-   q(0054) => [
+   q(0055) => [
       q(Resian),
       q(Resianic),
       q(Rezijan),
       ],
-   q(0055) => [
+   q(0056) => [
       q(Rumantsch Grischun),
       ],
-   q(0056) => [
+   q(0057) => [
       q(Scottish Standard English),
       ],
-   q(0057) => [
+   q(0058) => [
       q(Scouse),
       ],
-   q(0058) => [
+   q(0059) => [
       q(The Stolvizza dialect of Resian),
       q(The Solbica dialect of Resian),
       ],
-   q(0059) => [
+   q(0060) => [
       q(The Sotavento dialect group of Kabuverdianu),
       ],
-   q(0060) => [
+   q(0061) => [
       q(Surmiran idiom of Romansh),
       ],
-   q(0061) => [
+   q(0062) => [
       q(Sursilvan idiom of Romansh),
       ],
-   q(0062) => [
+   q(0063) => [
       q(Sutsilvan idiom of Romansh),
       ],
-   q(0063) => [
+   q(0064) => [
       q(Belarusian in Taraskievica orthography),
       ],
-   q(0064) => [
+   q(0065) => [
       q(Unified Cornish orthography of Revived Cornish),
       ],
-   q(0065) => [
+   q(0066) => [
       q(Unified Cornish Revised orthography of Revived Cornish),
       ],
-   q(0066) => [
+   q(0067) => [
       q(Ulster dialect of Scots),
       ],
-   q(0067) => [
+   q(0068) => [
       q(Unifon phonetic alphabet),
       ],
-   q(0068) => [
+   q(0069) => [
       q(Vedic Sanskrit),
       ],
-   q(0069) => [
+   q(0070) => [
       q(Valencian),
       ],
-   q(0070) => [
+   q(0071) => [
       q(Vallader idiom of Romansh),
       ],
-   q(0071) => [
+   q(0072) => [
       q(Wade-Giles romanization),
       ],
 };
@@ -269,7 +272,7 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(1),
       ],
    q(belarusian in taraskievica orthography) => [
-      q(0063),
+      q(0064),
       q(0),
       ],
    q(biscayan dialect of basque) => [
@@ -289,7 +292,7 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(classic volapuk) => [
-      q(0053),
+      q(0054),
       q(3),
       ],
    q(classical sanskrit) => [
@@ -301,7 +304,7 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(de jong's volapuk) => [
-      q(0045),
+      q(0046),
       q(3),
       ],
    q(early modern english (1500-1700)) => [
@@ -349,7 +352,7 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(modern volapuk) => [
-      q(0045),
+      q(0046),
       q(6),
       ],
    q(monotonic greek) => [
@@ -369,15 +372,19 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(new volapuk) => [
-      q(0045),
+      q(0046),
       q(4),
       ],
+   q(newfoundland english) => [
+      q(0044),
+      q(0),
+      ],
    q(norwegian in hognorsk (high norwegian) orthography) => [
       q(0029),
       q(0),
       ],
    q(original volapuk) => [
-      q(0053),
+      q(0054),
       q(2),
       ],
    q(orthographic formulation of 1943 - official in brazil (formulario ortografico de 1943 - oficial no brasil)) => [
@@ -385,23 +392,23 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(oxford english dictionary spelling) => [
-      q(0047),
+      q(0048),
       q(0),
       ],
    q(pamaka dialect) => [
-      q(0048),
+      q(0049),
       q(0),
       ],
    q(petrine orthography) => [
-      q(0049),
+      q(0050),
       q(0),
       ],
    q(pinyin romanization) => [
-      q(0050),
+      q(0051),
       q(0),
       ],
    q(polytonic greek) => [
-      q(0051),
+      q(0052),
       q(0),
       ],
    q(portuguese language orthographic agreement of 1990 (acordo ortografico da lingua portuguesa de 1990)) => [
@@ -417,39 +424,39 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(puter idiom of romansh) => [
-      q(0052),
+      q(0053),
       q(0),
       ],
    q(resian) => [
-      q(0054),
+      q(0055),
       q(0),
       ],
    q(resianic) => [
-      q(0054),
+      q(0055),
       q(1),
       ],
    q(revised volapuk) => [
-      q(0045),
+      q(0046),
       q(5),
       ],
    q(rezijan) => [
-      q(0054),
+      q(0055),
       q(2),
       ],
    q(rumantsch grischun) => [
-      q(0055),
+      q(0056),
       q(0),
       ],
    q(schleyer's volapuk) => [
-      q(0053),
+      q(0054),
       q(1),
       ],
    q(scottish standard english) => [
-      q(0056),
+      q(0057),
       q(0),
       ],
    q(scouse) => [
-      q(0057),
+      q(0058),
       q(0),
       ],
    q(serbian with ekavian pronunciation) => [
@@ -481,15 +488,15 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(surmiran idiom of romansh) => [
-      q(0060),
+      q(0061),
       q(0),
       ],
    q(sursilvan idiom of romansh) => [
-      q(0061),
+      q(0062),
       q(0),
       ],
    q(sutsilvan idiom of romansh) => [
-      q(0062),
+      q(0063),
       q(0),
       ],
    q(the balanka dialect of anii) => [
@@ -505,7 +512,7 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(1),
       ],
    q(the gniva dialect of resian) => [
-      q(0044),
+      q(0045),
       q(0),
       ],
    q(the kociewie dialect of polish) => [
@@ -521,15 +528,15 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(1),
       ],
    q(the njiva dialect of resian) => [
-      q(0044),
+      q(0045),
       q(1),
       ],
    q(the oseacco dialect of resian) => [
-      q(0046),
+      q(0047),
       q(0),
       ],
    q(the osojane dialect of resian) => [
-      q(0046),
+      q(0047),
       q(1),
       ],
    q(the san giorgio dialect of resian) => [
@@ -537,15 +544,15 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(the solbica dialect of resian) => [
-      q(0058),
+      q(0059),
       q(1),
       ],
    q(the sotavento dialect group of kabuverdianu) => [
-      q(0059),
+      q(0060),
       q(0),
       ],
    q(the stolvizza dialect of resian) => [
-      q(0058),
+      q(0059),
       q(0),
       ],
    q(traditional german orthography) => [
@@ -553,15 +560,15 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(ulster dialect of scots) => [
-      q(0066),
+      q(0067),
       q(0),
       ],
    q(unified cornish orthography of revived cornish) => [
-      q(0064),
+      q(0065),
       q(0),
       ],
    q(unified cornish revised orthography of revived cornish) => [
-      q(0065),
+      q(0066),
       q(0),
       ],
    q(unified turkic latin alphabet (historical)) => [
@@ -569,7 +576,7 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(unifon phonetic alphabet) => [
-      q(0067),
+      q(0068),
       q(0),
       ],
    q(uralic phonetic alphabet) => [
@@ -577,35 +584,35 @@ $Locale::Codes::Data{'langvar'}{'alias2id'} = {
       q(0),
       ],
    q(valencian) => [
-      q(0069),
+      q(0070),
       q(0),
       ],
    q(vallader idiom of romansh) => [
-      q(0070),
+      q(0071),
       q(0),
       ],
    q(vedic sanskrit) => [
-      q(0068),
+      q(0069),
       q(0),
       ],
    q(volapuk nuladik) => [
-      q(0045),
+      q(0046),
       q(2),
       ],
    q(volapuk nulik) => [
-      q(0045),
+      q(0046),
       q(0),
       ],
    q(volapuk perevidol) => [
-      q(0045),
+      q(0046),
       q(1),
       ],
    q(volapuk rigik) => [
-      q(0053),
+      q(0054),
       q(0),
       ],
    q(wade-giles romanization) => [
-      q(0071),
+      q(0072),
       q(0),
       ],
    q(western armenian) => [
@@ -792,118 +799,122 @@ $Locale::Codes::Data{'langvar'}{'code2id'} = {
          q(0043),
          q(0),
          ],
-      q(njiva) => [
+      q(newfound) => [
          q(0044),
          q(0),
          ],
-      q(nulik) => [
+      q(njiva) => [
          q(0045),
          q(0),
          ],
-      q(osojs) => [
+      q(nulik) => [
          q(0046),
          q(0),
          ],
-      q(oxendict) => [
+      q(osojs) => [
          q(0047),
          q(0),
          ],
-      q(pamaka) => [
+      q(oxendict) => [
          q(0048),
          q(0),
          ],
-      q(petr1708) => [
+      q(pamaka) => [
          q(0049),
          q(0),
          ],
-      q(pinyin) => [
+      q(petr1708) => [
          q(0050),
          q(0),
          ],
-      q(polyton) => [
+      q(pinyin) => [
          q(0051),
          q(0),
          ],
-      q(puter) => [
+      q(polyton) => [
          q(0052),
          q(0),
          ],
-      q(rigik) => [
+      q(puter) => [
          q(0053),
          q(0),
          ],
-      q(rozaj) => [
+      q(rigik) => [
          q(0054),
          q(0),
          ],
-      q(rumgr) => [
+      q(rozaj) => [
          q(0055),
          q(0),
          ],
-      q(scotland) => [
+      q(rumgr) => [
          q(0056),
          q(0),
          ],
-      q(scouse) => [
+      q(scotland) => [
          q(0057),
          q(0),
          ],
-      q(solba) => [
+      q(scouse) => [
          q(0058),
          q(0),
          ],
-      q(sotav) => [
+      q(solba) => [
          q(0059),
          q(0),
          ],
-      q(surmiran) => [
+      q(sotav) => [
          q(0060),
          q(0),
          ],
-      q(sursilv) => [
+      q(surmiran) => [
          q(0061),
          q(0),
          ],
-      q(sutsilv) => [
+      q(sursilv) => [
          q(0062),
          q(0),
          ],
-      q(tarask) => [
+      q(sutsilv) => [
          q(0063),
          q(0),
          ],
-      q(uccor) => [
+      q(tarask) => [
          q(0064),
          q(0),
          ],
-      q(ucrcor) => [
+      q(uccor) => [
          q(0065),
          q(0),
          ],
-      q(ulster) => [
+      q(ucrcor) => [
          q(0066),
          q(0),
          ],
-      q(unifon) => [
+      q(ulster) => [
          q(0067),
          q(0),
          ],
-      q(vaidika) => [
+      q(unifon) => [
          q(0068),
          q(0),
          ],
-      q(valencia) => [
+      q(vaidika) => [
          q(0069),
          q(0),
          ],
-      q(vallader) => [
+      q(valencia) => [
          q(0070),
          q(0),
          ],
-      q(wadegile) => [
+      q(vallader) => [
          q(0071),
          q(0),
          ],
+      q(wadegile) => [
+         q(0072),
+         q(0),
+         ],
       },
 };
 
@@ -952,34 +963,35 @@ $Locale::Codes::Data{'langvar'}{'id2code'} = {
       q(0041) => q(monoton),
       q(0042) => q(ndyuka),
       q(0043) => q(nedis),
-      q(0044) => q(njiva),
-      q(0045) => q(nulik),
-      q(0046) => q(osojs),
-      q(0047) => q(oxendict),
-      q(0048) => q(pamaka),
-      q(0049) => q(petr1708),
-      q(0050) => q(pinyin),
-      q(0051) => q(polyton),
-      q(0052) => q(puter),
-      q(0053) => q(rigik),
-      q(0054) => q(rozaj),
-      q(0055) => q(rumgr),
-      q(0056) => q(scotland),
-      q(0057) => q(scouse),
-      q(0058) => q(solba),
-      q(0059) => q(sotav),
-      q(0060) => q(surmiran),
-      q(0061) => q(sursilv),
-      q(0062) => q(sutsilv),
-      q(0063) => q(tarask),
-      q(0064) => q(uccor),
-      q(0065) => q(ucrcor),
-      q(0066) => q(ulster),
-      q(0067) => q(unifon),
-      q(0068) => q(vaidika),
-      q(0069) => q(valencia),
-      q(0070) => q(vallader),
-      q(0071) => q(wadegile),
+      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),
       },
 };
 
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Retired.pm
index f888ab4216..3ebef84230 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Retired.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Retired.pm
@@ -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 Sep  1 09:20:52 EDT 2015
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Retired{'langvar'}{'alpha'}{'code'} = {
 };
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Language.pm b/cpan/Locale-Codes/lib/Locale/Codes/Language.pm
index 4ff25e307a..4109d6c204 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Language.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Language.pm
@@ -22,7 +22,7 @@ use Locale::Codes::Language_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.36';
+$VERSION='3.37';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2language
                 language2code
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Language_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/Language_Codes.pm
index 5a824907de..51abf1bcb0 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Language_Codes.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Language_Codes.pm
@@ -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 Sep  1 09:05:17 EDT 2015
+#    Generated on: Tue Dec  1 14:41:14 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Data{'language'}{'id'} = '7976';
 
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Language_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/Language_Retired.pm
index dc8a635633..98908dd486 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Language_Retired.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Language_Retired.pm
@@ -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 Sep  1 09:20:52 EDT 2015
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Retired{'language'}{'alpha-2'}{'code'} = {
    q(in) => q(Indonesian),
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Script.pm b/cpan/Locale-Codes/lib/Locale/Codes/Script.pm
index d181863f14..b188cf072b 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Script.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Script.pm
@@ -22,7 +22,7 @@ use Locale::Codes::Script_Retired;
 
 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
 
-$VERSION='3.36';
+$VERSION='3.37';
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2script
                 script2code
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Script_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/Script_Codes.pm
index 96e182408a..451a4e4b37 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Script_Codes.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Script_Codes.pm
@@ -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 Sep  1 09:16:30 EDT 2015
+#    Generated on: Tue Dec  1 14:44:11 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Data{'script'}{'id'} = '0175';
 
diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Script_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/Script_Retired.pm
index 0047021fa5..89a0f4718b 100644
--- a/cpan/Locale-Codes/lib/Locale/Codes/Script_Retired.pm
+++ b/cpan/Locale-Codes/lib/Locale/Codes/Script_Retired.pm
@@ -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 Sep  1 09:20:52 EDT 2015
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.36';
+$VERSION='3.37';
 
 $Locale::Codes::Retired{'script'}{'alpha'}{'code'} = {
 };
diff --git a/cpan/Locale-Codes/lib/Locale/Country.pm b/cpan/Locale-Codes/lib/Locale/Country.pm
index 889c57b81b..4c4d7c198f 100644
--- a/cpan/Locale-Codes/lib/Locale/Country.pm
+++ b/cpan/Locale-Codes/lib/Locale/Country.pm
@@ -10,7 +10,7 @@ use warnings;
 use Exporter;
 
 our $VERSION;
-$VERSION='3.36';
+$VERSION='3.37';
 
 our (@ISA,@EXPORT);
 
diff --git a/cpan/Locale-Codes/lib/Locale/Currency.pm b/cpan/Locale-Codes/lib/Locale/Currency.pm
index cc2cd24c3e..c930ff964f 100644
--- a/cpan/Locale-Codes/lib/Locale/Currency.pm
+++ b/cpan/Locale-Codes/lib/Locale/Currency.pm
@@ -10,7 +10,7 @@ use warnings;
 use Exporter;
 
 our $VERSION;
-$VERSION='3.36';
+$VERSION='3.37';
 
 our (@ISA,@EXPORT);
 
diff --git a/cpan/Locale-Codes/lib/Locale/Language.pm b/cpan/Locale-Codes/lib/Locale/Language.pm
index 2861f9651e..ab4d2145b0 100644
--- a/cpan/Locale-Codes/lib/Locale/Language.pm
+++ b/cpan/Locale-Codes/lib/Locale/Language.pm
@@ -10,7 +10,7 @@ use warnings;
 use Exporter;
 
 our $VERSION;
-$VERSION='3.36';
+$VERSION='3.37';
 
 our (@ISA,@EXPORT);
 
diff --git a/cpan/Locale-Codes/lib/Locale/Script.pm b/cpan/Locale-Codes/lib/Locale/Script.pm
index e9e4ecf395..1ea0e188fe 100644
--- a/cpan/Locale-Codes/lib/Locale/Script.pm
+++ b/cpan/Locale-Codes/lib/Locale/Script.pm
@@ -10,7 +10,7 @@ use warnings;
 use Exporter;
 
 our $VERSION;
-$VERSION='3.36';
+$VERSION='3.37';
 
 our (@ISA,@EXPORT);
 
diff --git a/cpan/Locale-Codes/t/code2country.t b/cpan/Locale-Codes/t/code2country.t
index bd83e481fd..4fb69c9b6e 100644
--- a/cpan/Locale-Codes/t/code2country.t
+++ b/cpan/Locale-Codes/t/code2country.t
@@ -129,6 +129,14 @@ 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";