Locale-Codes: Update to 3.53

Fixed the default error condition in legacy modules.

Author: rurban

Porting/Maintainers.pl

@@ -918,7 +918,7 @@ package Maintainers;
     },
 
     'Locale::Codes' => {
-        'DISTRIBUTION' => 'SBECK/Locale-Codes-3.51.tar.gz',
+        'DISTRIBUTION' => 'SBECK/Locale-Codes-3.53.tar.gz',
         'FILES'        => q[cpan/Locale-Codes],
         'EXCLUDED'     => [
             qw( README.first

cpan/Locale-Codes/lib/Locale/Codes.pm

@@ -15,7 +15,7 @@ use Carp;
 use Locale::Codes::Constants;
 
 our($VERSION);
-$VERSION='3.51';
+$VERSION='3.53';
 
 use Exporter qw(import);
 our(@EXPORT_OK,%EXPORT_TAGS);

cpan/Locale-Codes/lib/Locale/Codes/Changes.pod

@@ -22,11 +22,34 @@ 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.54  (planned 2017-12-01; sbeck)
+=head1 VERSION 3.55  (planned 2017-12-01; sbeck)
 
-=head1 VERSION 3.53  (planned 2017-09-01; sbeck)
+=head1 VERSION 3.54  (planned 2017-09-01; sbeck)
 
-=head1 VERSION 3.52  (planned 2017-06-01; sbeck)
+=head1 VERSION 3.53  (2017-07-25; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item Fixed the default error condition in legacy modules.
+
+With the addition of the OO module, better error handling was added (and it
+was on by default).  The non-OO (legacy) modules did not report errors, so
+code that uses them, would now behave differently if invalid data were
+passed in.
+
+I have turned off error handling by default in the legacy modules.  The
+show_errors method was added to each of the non-OO modules to report errors
+if desired.
+
+Reported by dmaestro on GitHub.
+
+=back
+
+=head1 VERSION 3.52  (2017-06-01; sbeck)
+
+NEW CODE(s)
 
 =head1 VERSION 3.51  (2017-04-10; sbeck)
 

cpan/Locale-Codes/lib/Locale/Codes/Constants.pm

@@ -7,15 +7,15 @@ 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 Apr 10 10:38:20 EDT 2017
+#    Generated on: Tue Jul 25 13:42:10 EDT 2017
 
 use strict;
 use warnings;
 require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.51';
+$VERSION   = '3.53';
 
 ################################################################################
 our(@CONSTANTS,%ALL_CODESETS);

cpan/Locale-Codes/lib/Locale/Codes/Country.pm

@@ -7,15 +7,15 @@ 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 Apr 10 10:38:20 EDT 2017
+#    Generated on: Tue Jul 25 13:42:10 EDT 2017
 
 use strict;
 use warnings;
 require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.51';
+$VERSION   = '3.53';
 
 ################################################################################
 use Locale::Codes;
@@ -31,8 +31,9 @@ use Locale::Codes::Constants;
 push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_COUNTRY);
 
 our $obj = new Locale::Codes('country');
+$obj->show_errors(0);
 
-sub _show_errors {
+sub show_errors {
    my($val) = @_;
    $obj->show_errors($val);
 }

cpan/Locale-Codes/lib/Locale/Codes/Country.pod

@@ -64,6 +64,11 @@ qualified with the package name:
 
 =over 4
 
+=item B<Locale::Codes::Country::show_errors(FLAG)>
+
+By default, invalid input will produce empty results, but no errors.  By
+passing in a non-zero value of FLAG, errors will be produced.
+
 =item B<Locale::Codes::Country::rename_country(CODE ,NEW_NAME [,CODESET])>
 
 See B<rename_code> in L<Locale::Codes>

cpan/Locale-Codes/lib/Locale/Codes/Country_Codes.pm

@@ -3,15 +3,15 @@ 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 Apr 10 10:37:11 EDT 2017
+#    Generated on: Tue Jul 25 13:41:00 EDT 2017
 
 use strict;
 require 5.006;
 use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.51';
+$VERSION='3.53';
 
 $Locale::Codes::Data{'country'}{'id'} = '0280';
 

cpan/Locale-Codes/lib/Locale/Codes/Country_Retired.pm

@@ -3,15 +3,15 @@ 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 Apr 10 10:39:56 EDT 2017
+#    Generated on: Tue Jul 25 13:42:42 EDT 2017
 
 use strict;
 require 5.006;
 use warnings;
 use utf8;
 
 our($VERSION);
-$VERSION='3.51';
+$VERSION='3.53';
 
 $Locale::Codes::Retired{'country'}{'alpha-2'}{'code'} = {
    q(an) => q(Netherlands Antilles),

cpan/Locale-Codes/lib/Locale/Codes/Currency.pm

@@ -7,15 +7,15 @@ 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 Apr 10 10:38:20 EDT 2017
+#    Generated on: Tue Jul 25 13:42:10 EDT 2017
 
 use strict;
 use warnings;
 require 5.006;
 use Exporter qw(import);
 
 our($VERSION,@EXPORT);
-$VERSION   = '3.51';
+$VERSION   = '3.53';
 
 ################################################################################
 use Locale::Codes;
@@ -31,8 +31,9 @@ use Locale::Codes::Constants;
 push(@EXPORT,@Locale::Codes::Constants::CONSTANTS_CURRENCY);
 
 our $obj = new Locale::Codes('currency');
+$obj->show_errors(0);
 
-sub _show_errors {
+sub show_errors {
    my($val) = @_;
    $obj->show_errors($val);
 }

cpan/Locale-Codes/lib/Locale/Codes/Currency.pod

@@ -64,6 +64,11 @@ qualified with the package name:
 
 =over 4
 
+=item B<Locale::Codes::Currency::show_errors(FLAG)>
+
+By default, invalid input will produce empty results, but no errors.  By
+passing in a non-zero value of FLAG, errors will be produced.
+
 =item B<Locale::Codes::Currency::rename_currency(CODE ,NEW_NAME [,CODESET])>
 
 See B<rename_code> in L<Locale::Codes>