This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Bump Locale-Codes from 3.54 to 3.55
authorSullivan Beck <sbeck@cpan.org>
Fri, 17 Nov 2017 15:59:43 +0000 (10:59 -0500)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Tue, 21 Nov 2017 10:40:02 +0000 (10:40 +0000)
Includes perldelta entry noting its deprecation in core.

53 files changed:
MANIFEST
Porting/Maintainers.pl
cpan/Locale-Codes/lib/Locale/Codes.pm
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_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_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_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_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_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_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_Codes.pm
cpan/Locale-Codes/lib/Locale/Codes/Script_Retired.pm
cpan/Locale-Codes/lib/Locale/Country.pm
cpan/Locale-Codes/lib/Locale/Currency.pm
cpan/Locale-Codes/lib/Locale/Language.pm
cpan/Locale-Codes/lib/Locale/Script.pm
cpan/Locale-Codes/t/country_func.t
cpan/Locale-Codes/t/country_old.t
cpan/Locale-Codes/t/country_oo.t
cpan/Locale-Codes/t/currency_func.t
cpan/Locale-Codes/t/currency_old.t
cpan/Locale-Codes/t/currency_oo.t
cpan/Locale-Codes/t/do_tests.pl
cpan/Locale-Codes/t/errors.1.t [new file with mode: 0644]
cpan/Locale-Codes/t/errors.2.t [new file with mode: 0644]
cpan/Locale-Codes/t/langext_func.t
cpan/Locale-Codes/t/langext_oo.t
cpan/Locale-Codes/t/langfam_func.t
cpan/Locale-Codes/t/langfam_oo.t
cpan/Locale-Codes/t/language_func.t
cpan/Locale-Codes/t/language_old.t
cpan/Locale-Codes/t/language_oo.t
cpan/Locale-Codes/t/langvar_func.t
cpan/Locale-Codes/t/langvar_oo.t
cpan/Locale-Codes/t/script_func.t
cpan/Locale-Codes/t/script_old.t
cpan/Locale-Codes/t/script_oo.t
cpan/Locale-Codes/t/vals_error.pl [new file with mode: 0644]
pod/perldelta.pod

index 778521b..093cb7e 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1311,6 +1311,8 @@ cpan/Locale-Codes/t/currency_func.t       Locale::Codes tests
 cpan/Locale-Codes/t/currency_old.t     Locale::Codes tests
 cpan/Locale-Codes/t/currency_oo.t      Locale::Codes tests
 cpan/Locale-Codes/t/do_tests.pl        Locale::Codes tests
+cpan/Locale-Codes/t/errors.1.t Locale::Codes tests
+cpan/Locale-Codes/t/errors.2.t Locale::Codes tests
 cpan/Locale-Codes/t/langext_func.t     Locale::Codes tests
 cpan/Locale-Codes/t/langext_oo.t       Locale::Codes tests
 cpan/Locale-Codes/t/langfam_func.t     Locale::Codes tests
@@ -1326,6 +1328,7 @@ cpan/Locale-Codes/t/script_oo.t   Locale::Codes tests
 cpan/Locale-Codes/t/testfunc.pl                        Locale::Codes tests
 cpan/Locale-Codes/t/vals_country.pl    Locale::Codes tests
 cpan/Locale-Codes/t/vals_currency.pl   Locale::Codes tests
+cpan/Locale-Codes/t/vals_error.pl      Locale::Codes tests
 cpan/Locale-Codes/t/vals_langext.pl    Locale::Codes tests
 cpan/Locale-Codes/t/vals_langfam.pl    Locale::Codes tests
 cpan/Locale-Codes/t/vals_language.pl   Locale::Codes tests
index 116c12c..7902dab 100755 (executable)
@@ -674,7 +674,7 @@ use File::Glob qw(:case);
     },
 
     'Locale-Codes' => {
-        'DISTRIBUTION' => 'SBECK/Locale-Codes-3.54.tar.gz',
+        'DISTRIBUTION' => 'SBECK/Locale-Codes-3.55.tar.gz',
         'FILES'        => q[cpan/Locale-Codes],
         'EXCLUDED'     => [
             qw( README.first
index 080edc8..39c7c7d 100644 (file)
@@ -12,10 +12,11 @@ use warnings;
 require 5.006;
 
 use Carp;
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes::Constants;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 use Exporter qw(import);
 our(@EXPORT_OK,%EXPORT_TAGS);
@@ -67,18 +68,24 @@ sub type {
    my($self,$type) = @_;
 
    if (! exists $ALL_CODESETS{$type}) {
+      # uncoverable branch false
       carp "ERROR: type: invalid argument: $type\n"  if ($$self{'err'});
       return;
    }
 
+   # uncoverable branch false
    if (! $ALL_CODESETS{$type}{'loaded'}) {
       my $label = $ALL_CODESETS{$type}{'module'};
       eval "require Locale::Codes::${label}_Codes";
+      # uncoverable branch true
       if ($@) {
+         # uncoverable statement
          croak "ERROR: type: unable to load module: ${label}_Codes\n";
       }
       eval "require Locale::Codes::${label}_Retired";
+      # uncoverable branch true
       if ($@) {
+         # uncoverable statement
          croak "ERROR: type: unable to load module: ${label}_Retired\n";
       }
       $ALL_CODESETS{$type}{'loaded'} = 1;
@@ -93,6 +100,7 @@ sub codeset {
 
    my $type           = $$self{'type'};
    if (! exists $ALL_CODESETS{$type}{'codesets'}{$codeset}) {
+      # uncoverable branch false
       carp "ERROR: codeset: invalid argument: $codeset\n"  if ($$self{'err'});
    }
 
@@ -100,7 +108,10 @@ sub codeset {
 }
 
 sub version {
+  # uncoverable subroutine
+  # uncoverable statement
   my($self) = @_;
+  # uncoverable statement
   return $VERSION;
 }
 
@@ -128,8 +139,11 @@ sub _code {
    $code                    = ''  if (! defined($code));
    $codeset                 = lc($codeset)  if (defined($codeset));
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return (1);
    }
    my $type = $$self{'type'};
@@ -167,7 +181,9 @@ sub _code {
          $code    = sprintf("%.${l}d", $code);
 
       } else {
+         # uncoverable statement
          carp "ERROR: _code: invalid numeric code: $code\n"  if ($$self{'err'});
+         # uncoverable statement
          return (1);
       }
    }
@@ -201,8 +217,11 @@ sub code2name {
       $retired       = 1;
    }
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return (1);
    }
    my $type = $$self{'type'};
@@ -237,8 +256,11 @@ sub name2code {
       $retired       = 1;
    }
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return (1);
    }
    my $type = $$self{'type'};
@@ -268,8 +290,11 @@ sub name2code {
 sub code2code {
    my($self,@args) = @_;
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return (1);
    }
    my $type = $$self{'type'};
@@ -279,6 +304,7 @@ sub code2code {
    if (@args == 2) {
       ($code,$codeset2)      = @args;
       ($err,$code,$codeset1) = $self->_code($code);
+      # uncoverable branch true
       return undef  if ($err);
 
    } elsif (@args == 3) {
@@ -286,6 +312,7 @@ sub code2code {
       ($err,$code)                = $self->_code($code,$codeset1);
       return undef  if ($err);
       ($err)                      = $self->_code('',$codeset2);
+      # uncoverable branch true
       return undef  if ($err);
    }
 
@@ -310,8 +337,11 @@ sub all_codes {
       $retired       = 1;
    }
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return (1);
    }
    my $type = $$self{'type'};
@@ -332,8 +362,11 @@ sub all_names {
       $retired       = 1;
    }
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return (1);
    }
    my $type = $$self{'type'};
@@ -371,8 +404,11 @@ sub all_names {
 sub rename_code {
    my($self,$code,$new_name,$codeset) = @_;
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return 0;
    }
    my $type = $$self{'type'};
@@ -438,8 +474,11 @@ sub rename_code {
 sub add_code {
    my($self,$code,$name,$codeset) = @_;
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return 0;
    }
    my $type = $$self{'type'};
@@ -498,8 +537,11 @@ sub add_code {
 sub delete_code {
    my($self,$code,$codeset) = @_;
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return 0;
    }
    my $type = $$self{'type'};
@@ -507,9 +549,12 @@ sub delete_code {
    # Make sure $code/$codeset are both valid
 
    my($err,$c,$cs) = $self->_code($code,$codeset);
+   # uncoverable branch true
    if ($err) {
+      # uncoverable statement
       carp "ERROR: rename: Unknown code/codeset: $code [$codeset]\n"
         if ($$self{'err'});
+      # uncoverable statement
       return 0;
    }
    ($code,$codeset) = ($c,$cs);
@@ -552,8 +597,11 @@ sub delete_code {
 sub add_alias {
    my($self,$name,$new_name) = @_;
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return 0;
    }
    my $type = $$self{'type'};
@@ -595,8 +643,11 @@ sub add_alias {
 sub delete_alias {
    my($self,$name) = @_;
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return 0;
    }
    my $type = $$self{'type'};
@@ -654,8 +705,11 @@ sub delete_alias {
 sub replace_code {
    my($self,$code,$new_code,$codeset) = @_;
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return 0;
    }
    my $type = $$self{'type'};
@@ -731,8 +785,11 @@ sub replace_code {
 sub add_code_alias {
    my($self,$code,$new_code,$codeset) = @_;
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return 0;
    }
    my $type = $$self{'type'};
@@ -754,6 +811,7 @@ sub add_code_alias {
 
    if (exists $Data{$type}{'code2id'}{$codeset}{$new_code}  ||
        exists $Data{$type}{'codealias'}{$codeset}{$new_code}) {
+      # uncoverable branch true
       carp "add_code_alias: code already in use: $new_code\n"  if ($$self{'err'});
       return 0;
    }
@@ -774,8 +832,11 @@ sub add_code_alias {
 sub delete_code_alias {
    my($self,$code,$codeset) = @_;
 
+   # uncoverable branch true
    if (! $$self{'type'}) {
+      # uncoverable statement
       carp "ERROR: no type set for Locale::Codes object\n"  if ($$self{'err'});
+      # uncoverable statement
       return 0;
    }
    my $type = $$self{'type'};
@@ -784,6 +845,7 @@ sub delete_code_alias {
 
    my($err,$c,$cs) = $self->_code($code,$codeset);
    if ($err) {
+      # uncoverable branch true
       carp "ERROR: rename: Unknown code/codeset: $code [$codeset]\n"
         if ($$self{'err'});
       return 0;
@@ -793,6 +855,7 @@ sub delete_code_alias {
    # Check that $code exists in the codeset as an alias.
 
    if (! exists $Data{$type}{'codealias'}{$codeset}{$code}) {
+      # uncoverable branch true
       carp "delete_code_alias(): no alias defined: $code\n"  if ($$self{'err'});
       return 0;
    }
index 0617776..b1e3815 100644 (file)
@@ -22,7 +22,43 @@ September, December). I will also check on request, so if a code
 changes that you use, feel free to contact me.  Any time there are new
 codes, I will add them to the module and release a new version.
 
-=head1 VERSION 3.55  (planned 2017-12-01; sbeck)
+=head1 VERSION 3.59  (planned 2018-12-01; sbeck)
+
+=head1 VERSION 3.58  (planned 2018-09-01; sbeck)
+
+=head1 VERSION 3.57  (planned 2018-06-01; sbeck)
+
+=head1 VERSION 3.56  (planned 2018-03-01; sbeck)
+
+=head1 VERSION 3.55  (2017-11-17; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<(*) Deprecated in core>
+
+Because correct usage of any of the Locale::Codes modules requires that
+they be kept up-to-date, I have long felt that it should not be distributed
+as a core module.  After discussion on the perl5-porters list, it is agreed,
+and the deprecation process has been started.
+
+=item Changes from a github pull request applied
+
+A couple minor changes (updated .travis.yml to include newest versions of
+perl; and a couple changes to pod_coverage.t) reported by lancew on GitHub.
+
+=item Got rid of Build.PL
+
+Simplified things by only supporting one of Makefile.PL/Build.PL (and the latter
+has been removed from perl core some time ago).  RT 123572
+
+=item Fixed INSTALLDIRS
+
+The behavior of installing core modules changed in 5.12 a bit, and Makefile.PL
+now reflects that.  RT 123571
+
+=back
 
 =head1 VERSION 3.54  (2017-09-01; sbeck)
 
index 4f9257f..89fcbde 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Codes::Constants;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,7 +15,7 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
 our(@CONSTANTS,%ALL_CODESETS);
index 4e53771..a835ecc 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Codes::Country;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index 51740d6..83ec3e6 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: Mon Aug 28 13:19:37 EDT 2017
+#    Generated on: Thu Nov 16 07:53:47 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Data{'country'}{'id'} = '0280';
 
index fc3904e..dda0723 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: Mon Aug 28 13:35:42 EDT 2017
+#    Generated on: Fri Nov 17 10:39:14 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Retired{'country'}{'alpha-2'}{'code'} = {
    q(an) => q(Netherlands Antilles),
index fa58b07..47b8428 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Codes::Currency;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index c4ba9bf..2de9dcb 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: Mon Aug 28 13:19:56 EDT 2017
+#    Generated on: Thu Nov 16 07:56:18 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Data{'currency'}{'id'} = '0177';
 
@@ -377,7 +377,7 @@ $Locale::Codes::Data{'currency'}{'id2names'} = {
       q(Sol),
       ],
    q(0121) => [
-      q(Philippine Peso),
+      q(Philippine Piso),
       ],
    q(0122) => [
       q(Zloty),
@@ -1007,7 +1007,7 @@ $Locale::Codes::Data{'currency'}{'alias2id'} = {
       q(0160),
       q(0),
       ],
-   q(philippine peso) => [
+   q(philippine piso) => [
       q(0121),
       q(0),
       ],
index aa5f2e1..f50bd44 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: Mon Aug 28 13:35:42 EDT 2017
+#    Generated on: Fri Nov 17 10:39:14 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Retired{'currency'}{'alpha'}{'code'} = {
    q(ADP) => q(Andorran Peseta),
@@ -137,6 +137,7 @@ $Locale::Codes::Retired{'currency'}{'alpha'}{'name'} = {
    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(philippine peso) => [ q(PHP), q(Philippine Peso) ],
    q(portuguese escudo) => [ q(PTE), q(Portuguese Escudo) ],
    q(saint helena pound) => [ q(SHP), q(Saint Helena Pound) ],
    q(schilling) => [ q(ATS), q(Schilling) ],
@@ -177,6 +178,7 @@ $Locale::Codes::Retired{'currency'}{'num'}{'name'} = {
    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(philippine peso) => [ q(608), q(Philippine Peso) ],
    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 0dbef73..4bc6b3b 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Codes::LangExt;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index c11121f..ba3362a 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: Mon Aug 28 13:35:14 EDT 2017
+#    Generated on: Thu Nov 16 07:56:44 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Data{'langext'}{'id'} = '0233';
 
index 1a00c80..465356f 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: Mon Aug 28 13:35:42 EDT 2017
+#    Generated on: Fri Nov 17 10:39:14 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Retired{'langext'}{'alpha'}{'code'} = {
    q(rsi) => q(Rennellese Sign Language),
index 56777d1..bc148f5 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Codes::LangFam;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index 4b7df74..e2303a7 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: Mon Aug 28 13:35:15 EDT 2017
+#    Generated on: Thu Nov 16 07:56:49 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Data{'langfam'}{'id'} = '0116';
 
index dfdde8c..3cc2f2c 100644 (file)
@@ -10,7 +10,7 @@ use warnings;
 require 5.002;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Retired{'langfam'}{'alpha'}{'code'} = {
 };
index 202bdfb..40d7380 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Codes::LangVar;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index 12ff772..ad3461d 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: Mon Aug 28 13:35:15 EDT 2017
+#    Generated on: Thu Nov 16 07:56:49 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Data{'langvar'}{'id'} = '0085';
 
index d8104d9..dd27e18 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: Mon Aug 28 13:35:42 EDT 2017
+#    Generated on: Fri Nov 17 10:39:14 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Retired{'langvar'}{'alpha'}{'code'} = {
 };
index 65ad8ab..aeea4df 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Codes::Language;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index 6a16c72..4e6f65a 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: Mon Aug 28 13:19:48 EDT 2017
+#    Generated on: Thu Nov 16 07:56:12 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Data{'language'}{'id'} = '7960';
 
index a56a725..730588b 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: Mon Aug 28 13:35:42 EDT 2017
+#    Generated on: Fri Nov 17 10:39:14 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Retired{'language'}{'alpha-2'}{'code'} = {
    q(in) => q(Indonesian),
index 6af5519..5ba2ae3 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Codes::Script;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index 33986a2..98aa8b9 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: Mon Aug 28 13:34:49 EDT 2017
+#    Generated on: Thu Nov 16 07:56:27 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Data{'script'}{'id'} = '0192';
 
index 57526c8..106c77d 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: Mon Aug 28 13:35:42 EDT 2017
+#    Generated on: Fri Nov 17 10:39:14 EST 2017
 
 use strict;
 require 5.006;
@@ -11,7 +11,7 @@ use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.54';
+$VERSION='3.55';
 
 $Locale::Codes::Retired{'script'}{'alpha'}{'code'} = {
 };
index 27bdf20..15e66bd 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Country;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index ede2531..74d2b5e 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Currency;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index 3849f95..fed3b41 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Language;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index f2acc9a..1708705 100644 (file)
@@ -7,7 +7,7 @@ package Locale::Script;
 
 # This file was automatically generated.  Any changes to this file will
 # be lost the next time 'gen_mods' is run.
-#    Generated on: Mon Aug 28 13:35:23 EDT 2017
+#    Generated on: Fri Nov 17 10:36:33 EST 2017
 
 use strict;
 use warnings;
@@ -15,9 +15,10 @@ require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.54';
+$VERSION   = '3.55';
 
 ################################################################################
+use if $] >= 5.027007, 'deprecate';
 use Locale::Codes;
 use Locale::Codes::Constants;
 
index cca60f9..fbfbc13 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('country','func');
+do_tests('country','','func');
 
 1;
 # Local Variables:
index f707da4..1c9addd 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('country','old');
+do_tests('country','','old');
 
 1;
 # Local Variables:
index d32b7d9..875c108 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('country','oo');
+do_tests('country','','oo');
 
 1;
 # Local Variables:
index c8234b5..87b6e46 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('currency','func');
+do_tests('currency','','func');
 
 1;
 # Local Variables:
index 0851ba4..1d23b19 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('currency','old');
+do_tests('currency','','old');
 
 1;
 # Local Variables:
index de2c1c0..a0ac1ee 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('currency','oo');
+do_tests('currency','','oo');
 
 1;
 # Local Variables:
index 50ac36b..9088178 100644 (file)
@@ -19,10 +19,11 @@ my %type = ('country'  => 'Country',
 my $generic_tests;
 
 sub do_tests {
-   my($data_type,$test_type) = @_;
+   my($data_type,$inp_file,$test_type,$codeset,$show_errs) = @_;
    my $type = $type{$data_type};
    $::data_type = $data_type;
    $::test_type = $test_type;
+   $inp_file    = $data_type  if (! $inp_file);
 
    my($runtests) = shift(@ARGV);
 
@@ -31,12 +32,12 @@ sub do_tests {
    my($dir,$tdir);
    if ( -f "t/testfunc.pl" ) {
      require "./t/testfunc.pl";
-     require "./t/vals_${data_type}.pl";
+     require "./t/vals_${inp_file}.pl";
      $dir="./lib";
      $tdir="t";
    } elsif ( -f "testfunc.pl" ) {
      require "./testfunc.pl";
-     require "./vals_${data_type}.pl";
+     require "./vals_${inp_file}.pl";
      $dir="../lib";
      $tdir=".";
    } else {
@@ -45,7 +46,7 @@ sub do_tests {
 
    unshift(@INC,$dir);
 
-   $::tests .= $generic_tests;
+   $::tests .= $generic_tests  if (! defined($show_errs));
 
    if ($test_type eq 'old') {
       $::module = "Locale::$type";
@@ -57,6 +58,15 @@ sub do_tests {
       eval("use $::module");
       my $tmp   = $::module . "::show_errors";
       &{ $tmp }(0);
+   } elsif (defined($codeset)) {
+      eval("use Locale::Codes");
+      $::obj = Locale::Codes->new($data_type,$codeset,$show_errs);
+      $::obj->show_errors(1);
+   } elsif (defined($show_errs)) {
+      eval("use Locale::Codes");
+      $::obj = Locale::Codes->new();
+      $::obj->type($data_type);
+      $::obj->show_errors($show_errs);
    } else {
       eval("use Locale::Codes");
       $::obj = new Locale::Codes $data_type;
@@ -68,6 +78,26 @@ sub do_tests {
 }
 
 sub test {
+   my ($op,@test) = @_;
+   my @ret;
+
+   my $stderr = '';
+   {
+      local *STDERR;
+      open STDERR, '>', \$stderr;
+      @ret = _test($op,@test);
+   }
+
+   if ($stderr) {
+      $stderr =~ s/\n.*//m;
+      chomp($stderr);
+      return $stderr;
+   } else {
+      return @ret;
+   }
+}
+
+sub _test {
    my    ($op,@test) = @_;
 
    if ($op eq '2code') {
@@ -181,6 +211,18 @@ sub test {
       } else {
          return &{ "${::module}::delete_${::data_type}_code_alias" }(@test)
       }
+   } elsif ($op eq 'codeset') {
+      if ($::obj) {
+         return $::obj->codeset(@test);
+      } else {
+         return &{ "${::module}::codeset" }(@test)
+      }
+   } elsif ($op eq 'type') {
+      if ($::obj) {
+         return $::obj->type(@test);
+      } else {
+         return &{ "${::module}::type" }(@test)
+      }
    }
 }
 
diff --git a/cpan/Locale-Codes/t/errors.1.t b/cpan/Locale-Codes/t/errors.1.t
new file mode 100644 (file)
index 0000000..1e83e3e
--- /dev/null
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+require 5.002;
+
+if ( -f "t/do_tests.pl" ) {
+   require "./t/do_tests.pl";
+} elsif (-f "do_tests.pl") {
+   require "./do_tests.pl";
+} else {
+  die "ERROR: cannot find do_tests.pl\n";
+}
+
+do_tests('country','error','oo','alpha-2',1);
+
+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/errors.2.t b/cpan/Locale-Codes/t/errors.2.t
new file mode 100644 (file)
index 0000000..8117b96
--- /dev/null
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+require 5.002;
+
+if ( -f "t/do_tests.pl" ) {
+   require "./t/do_tests.pl";
+} elsif (-f "do_tests.pl") {
+   require "./do_tests.pl";
+} else {
+  die "ERROR: cannot find do_tests.pl\n";
+}
+
+do_tests('country','error','oo',undef,1);
+
+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 8926127..b91235d 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('langext','func');
+do_tests('langext','','func');
 
 1;
 # Local Variables:
index f830146..119af07 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('langext','oo');
+do_tests('langext','','oo');
 
 1;
 # Local Variables:
index 4417d86..3e75b34 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('langfam','func');
+do_tests('langfam','','func');
 
 1;
 # Local Variables:
index d13d6a6..4a337b0 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('langfam','oo');
+do_tests('langfam','','oo');
 
 1;
 # Local Variables:
index 32b0612..4acc825 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('language','func');
+do_tests('language','','func');
 
 1;
 # Local Variables:
index 587ea94..aa4a1d0 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('language','old');
+do_tests('language','','old');
 
 1;
 # Local Variables:
index 5154940..5aa3b30 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('language','oo');
+do_tests('language','','oo');
 
 1;
 # Local Variables:
index df822be..1c7d237 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('langvar','func');
+do_tests('langvar','','func');
 
 1;
 # Local Variables:
index 30d37c8..9b22a98 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('langvar','oo');
+do_tests('langvar','','oo');
 
 1;
 # Local Variables:
index 36cf743..043238a 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('script','func');
+do_tests('script','','func');
 
 1;
 # Local Variables:
index ccea183..c76b895 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('script','old');
+do_tests('script','','old');
 
 1;
 # Local Variables:
index d92c45e..d15d441 100644 (file)
@@ -12,7 +12,7 @@ if ( -f "t/do_tests.pl" ) {
   die "ERROR: cannot find do_tests.pl\n";
 }
 
-do_tests('script','oo');
+do_tests('script','','oo');
 
 1;
 # Local Variables:
diff --git a/cpan/Locale-Codes/t/vals_error.pl b/cpan/Locale-Codes/t/vals_error.pl
new file mode 100644 (file)
index 0000000..b43023b
--- /dev/null
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+# Copyright (c) 2016-2017 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.
+
+use warnings;
+use strict;
+
+$::tests = '';
+
+$::tests = "
+all_names
+foo
+2
+   ~
+   ERROR: _code: invalid codeset provided: foo
+
+2name
+zz
+   ~
+   ERROR: _code: code not in codeset: zz [alpha-2]
+
+type
+zz
+   ~
+   ERROR: type: invalid argument: zz
+
+2name
+aaa
+numeric
+   ~
+   ERROR: _code: invalid numeric code: aaa
+
+codeset
+zz
+   ~
+   ERROR: codeset: invalid argument: zz
+
+";
+
+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 6c6d246..97d1113 100644 (file)
@@ -69,7 +69,7 @@ not usually on concerns over their design.
 
 =over
 
-=item XXX
+=item L<Locale::Codes> and its associated Country, Currency and Language modules
 
 XXX Note that deprecated modules should be listed here even if they are listed
 as an updated module in the L</Modules and Pragmata> section.
@@ -125,9 +125,10 @@ XXX Remove this section if not applicable.
 
 =item *
 
-L<XXX> has been upgraded from version A.xx to B.yy.
+L<Locale::Codes> has been upgraded from version 3.54 to 3.55
 
-If there was something important to note about this change, include that here.
+B<NOTE>: L<Locale::Codes> is deprecated in core and will be removed
+from Perl 5.30.
 
 =back