In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/55701e3ebf79d326d32737104e76aa1b338781e7?hp=8135baed8e5671abf0e9d8b55233259df5729c87>
- Log ----------------------------------------------------------------- commit 55701e3ebf79d326d32737104e76aa1b338781e7 Author: Chris 'BinGOs' Williams <[email protected]> Date: Tue May 10 12:05:38 2016 +0100 Update Archive-Tar to CPAN version 2.06 [DELTA] 2.06 24/04/2016 (ISHIGAKI && BOOK) - changed some of the "A"s in the UNPACK constant to "a" to allow trailing whitespaces in an archived filename - roundtrip tests M Porting/Maintainers.pl M cpan/Archive-Tar/lib/Archive/Tar.pm M cpan/Archive-Tar/lib/Archive/Tar/Constant.pm M cpan/Archive-Tar/lib/Archive/Tar/File.pm commit a2c3b2fe18baf254f225947385321b029600253e Author: Chris 'BinGOs' Williams <[email protected]> Date: Tue May 10 12:03:25 2016 +0100 Update perlfaq to CPAN version 5.021011 [DELTA] 5.021011 20162016-03-04 20:04:08Z * update info on Perl 6 * fix LICENSE address and update prereq for its content * excluded README.pod from the shipped tarball distribution M Porting/Maintainers.pl M cpan/perlfaq/lib/perlfaq.pm M cpan/perlfaq/lib/perlfaq.pod M cpan/perlfaq/lib/perlfaq1.pod M cpan/perlfaq/lib/perlfaq2.pod M cpan/perlfaq/lib/perlfaq3.pod M cpan/perlfaq/lib/perlfaq4.pod M cpan/perlfaq/lib/perlfaq5.pod M cpan/perlfaq/lib/perlfaq6.pod M cpan/perlfaq/lib/perlfaq7.pod M cpan/perlfaq/lib/perlfaq8.pod M cpan/perlfaq/lib/perlfaq9.pod M cpan/perlfaq/lib/perlglossary.pod commit add9356cb1c4fd5ffb8f067679f4bbabdea51e14 Author: Chris 'BinGOs' Williams <[email protected]> Date: Tue May 10 12:02:32 2016 +0100 Update Locale-Codes to CPAN version 3.38 M MANIFEST M Porting/Maintainers.pl M cpan/Locale-Codes/lib/Locale/Codes.pm M cpan/Locale-Codes/lib/Locale/Codes.pod M cpan/Locale-Codes/lib/Locale/Codes/API.pod M cpan/Locale-Codes/lib/Locale/Codes/Changes.pod M cpan/Locale-Codes/lib/Locale/Codes/Constants.pm M cpan/Locale-Codes/lib/Locale/Codes/Country.pm M cpan/Locale-Codes/lib/Locale/Codes/Country.pod M cpan/Locale-Codes/lib/Locale/Codes/Country_Codes.pm M cpan/Locale-Codes/lib/Locale/Codes/Country_Retired.pm M cpan/Locale-Codes/lib/Locale/Codes/Currency.pm M cpan/Locale-Codes/lib/Locale/Codes/Currency.pod M cpan/Locale-Codes/lib/Locale/Codes/Currency_Codes.pm M cpan/Locale-Codes/lib/Locale/Codes/Currency_Retired.pm M cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm M cpan/Locale-Codes/lib/Locale/Codes/LangExt.pod M cpan/Locale-Codes/lib/Locale/Codes/LangExt_Codes.pm M cpan/Locale-Codes/lib/Locale/Codes/LangExt_Retired.pm M cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm M cpan/Locale-Codes/lib/Locale/Codes/LangFam.pod M cpan/Locale-Codes/lib/Locale/Codes/LangFam_Codes.pm M cpan/Locale-Codes/lib/Locale/Codes/LangFam_Retired.pm M cpan/Locale-Codes/lib/Locale/Codes/LangVar.pm M cpan/Locale-Codes/lib/Locale/Codes/LangVar.pod M cpan/Locale-Codes/lib/Locale/Codes/LangVar_Codes.pm M cpan/Locale-Codes/lib/Locale/Codes/LangVar_Retired.pm M cpan/Locale-Codes/lib/Locale/Codes/Language.pm M cpan/Locale-Codes/lib/Locale/Codes/Language.pod M cpan/Locale-Codes/lib/Locale/Codes/Language_Codes.pm M cpan/Locale-Codes/lib/Locale/Codes/Language_Retired.pm M cpan/Locale-Codes/lib/Locale/Codes/Script.pm M cpan/Locale-Codes/lib/Locale/Codes/Script.pod M cpan/Locale-Codes/lib/Locale/Codes/Script_Codes.pm M cpan/Locale-Codes/lib/Locale/Codes/Script_Retired.pm M cpan/Locale-Codes/lib/Locale/Country.pm M cpan/Locale-Codes/lib/Locale/Country.pod M cpan/Locale-Codes/lib/Locale/Currency.pm M cpan/Locale-Codes/lib/Locale/Currency.pod M cpan/Locale-Codes/lib/Locale/Language.pm M cpan/Locale-Codes/lib/Locale/Language.pod M cpan/Locale-Codes/lib/Locale/Script.pm M cpan/Locale-Codes/lib/Locale/Script.pod D cpan/Locale-Codes/t/code2country.t D cpan/Locale-Codes/t/code2country_old.t D cpan/Locale-Codes/t/code2currency.t D cpan/Locale-Codes/t/code2language.t D cpan/Locale-Codes/t/code2script.t M cpan/Locale-Codes/t/country.t D cpan/Locale-Codes/t/country2code.t D cpan/Locale-Codes/t/country2code_old.t D cpan/Locale-Codes/t/country_code2code.t D cpan/Locale-Codes/t/country_code2code_old.t M cpan/Locale-Codes/t/country_old.t R054 cpan/Locale-Codes/t/code2langfam.t cpan/Locale-Codes/t/currency.t D cpan/Locale-Codes/t/currency2code.t D cpan/Locale-Codes/t/currency2code_old.t R054 cpan/Locale-Codes/t/code2langext.t cpan/Locale-Codes/t/currency_old.t R054 cpan/Locale-Codes/t/code2langvar.t cpan/Locale-Codes/t/langext.t D cpan/Locale-Codes/t/langext2code.t R054 cpan/Locale-Codes/t/langfam2code.t cpan/Locale-Codes/t/langfam.t M cpan/Locale-Codes/t/language.t D cpan/Locale-Codes/t/language2code.t M cpan/Locale-Codes/t/language_old.t A cpan/Locale-Codes/t/langvar.t D cpan/Locale-Codes/t/langvar2code.t A cpan/Locale-Codes/t/script.t D cpan/Locale-Codes/t/script2code.t D cpan/Locale-Codes/t/script2code_old.t A cpan/Locale-Codes/t/script_old.t M cpan/Locale-Codes/t/testfunc.pl A cpan/Locale-Codes/t/vals.pl A cpan/Locale-Codes/t/vals_country.pl A cpan/Locale-Codes/t/vals_currency.pl A cpan/Locale-Codes/t/vals_langext.pl A cpan/Locale-Codes/t/vals_langfam.pl A cpan/Locale-Codes/t/vals_language.pl A cpan/Locale-Codes/t/vals_langvar.pl A cpan/Locale-Codes/t/vals_script.pl ----------------------------------------------------------------------- Summary of changes: MANIFEST | 35 +- Porting/Maintainers.pl | 6 +- cpan/Archive-Tar/lib/Archive/Tar.pm | 2 +- cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 4 +- cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 +- cpan/Locale-Codes/lib/Locale/Codes.pm | 239 ++- cpan/Locale-Codes/lib/Locale/Codes.pod | 2 +- cpan/Locale-Codes/lib/Locale/Codes/API.pod | 2 +- cpan/Locale-Codes/lib/Locale/Codes/Changes.pod | 15 +- cpan/Locale-Codes/lib/Locale/Codes/Constants.pm | 6 +- cpan/Locale-Codes/lib/Locale/Codes/Country.pm | 6 +- cpan/Locale-Codes/lib/Locale/Codes/Country.pod | 2 +- .../Locale-Codes/lib/Locale/Codes/Country_Codes.pm | 4 +- .../lib/Locale/Codes/Country_Retired.pm | 4 +- cpan/Locale-Codes/lib/Locale/Codes/Currency.pm | 6 +- cpan/Locale-Codes/lib/Locale/Codes/Currency.pod | 4 +- .../lib/Locale/Codes/Currency_Codes.pm | 124 +- .../lib/Locale/Codes/Currency_Retired.pm | 10 +- cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm | 6 +- cpan/Locale-Codes/lib/Locale/Codes/LangExt.pod | 2 +- .../Locale-Codes/lib/Locale/Codes/LangExt_Codes.pm | 4 +- .../lib/Locale/Codes/LangExt_Retired.pm | 4 +- cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm | 6 +- cpan/Locale-Codes/lib/Locale/Codes/LangFam.pod | 2 +- .../Locale-Codes/lib/Locale/Codes/LangFam_Codes.pm | 4 +- .../lib/Locale/Codes/LangFam_Retired.pm | 2 +- cpan/Locale-Codes/lib/Locale/Codes/LangVar.pm | 6 +- cpan/Locale-Codes/lib/Locale/Codes/LangVar.pod | 2 +- .../Locale-Codes/lib/Locale/Codes/LangVar_Codes.pm | 544 +++--- .../lib/Locale/Codes/LangVar_Retired.pm | 4 +- cpan/Locale-Codes/lib/Locale/Codes/Language.pm | 6 +- cpan/Locale-Codes/lib/Locale/Codes/Language.pod | 2 +- .../lib/Locale/Codes/Language_Codes.pm | 4 +- .../lib/Locale/Codes/Language_Retired.pm | 4 +- cpan/Locale-Codes/lib/Locale/Codes/Script.pm | 6 +- cpan/Locale-Codes/lib/Locale/Codes/Script.pod | 2 +- cpan/Locale-Codes/lib/Locale/Codes/Script_Codes.pm | 1769 +++++++++++--------- .../lib/Locale/Codes/Script_Retired.pm | 4 +- cpan/Locale-Codes/lib/Locale/Country.pm | 6 +- cpan/Locale-Codes/lib/Locale/Country.pod | 2 +- cpan/Locale-Codes/lib/Locale/Currency.pm | 6 +- cpan/Locale-Codes/lib/Locale/Currency.pod | 4 +- cpan/Locale-Codes/lib/Locale/Language.pm | 6 +- cpan/Locale-Codes/lib/Locale/Language.pod | 2 +- cpan/Locale-Codes/lib/Locale/Script.pm | 6 +- cpan/Locale-Codes/lib/Locale/Script.pod | 2 +- cpan/Locale-Codes/t/code2country.t | 156 -- cpan/Locale-Codes/t/code2country_old.t | 144 -- cpan/Locale-Codes/t/code2currency.t | 125 -- cpan/Locale-Codes/t/code2language.t | 220 --- cpan/Locale-Codes/t/code2script.t | 57 - cpan/Locale-Codes/t/country.t | 249 +-- cpan/Locale-Codes/t/country2code.t | 216 --- cpan/Locale-Codes/t/country2code_old.t | 183 -- cpan/Locale-Codes/t/country_code2code.t | 78 - cpan/Locale-Codes/t/country_code2code_old.t | 78 - cpan/Locale-Codes/t/country_old.t | 235 +-- cpan/Locale-Codes/t/{code2langfam.t => currency.t} | 43 +- cpan/Locale-Codes/t/currency2code.t | 78 - cpan/Locale-Codes/t/currency2code_old.t | 78 - .../t/{code2langext.t => currency_old.t} | 43 +- cpan/Locale-Codes/t/{langfam2code.t => langext.t} | 43 +- cpan/Locale-Codes/t/langext2code.t | 54 - cpan/Locale-Codes/t/{code2langvar.t => langfam.t} | 43 +- cpan/Locale-Codes/t/language.t | 88 +- cpan/Locale-Codes/t/language2code.t | 115 -- cpan/Locale-Codes/t/language_old.t | 88 +- cpan/Locale-Codes/t/{code2langfam.t => langvar.t} | 43 +- cpan/Locale-Codes/t/langvar2code.t | 54 - cpan/Locale-Codes/t/{code2langfam.t => script.t} | 43 +- cpan/Locale-Codes/t/script2code.t | 55 - cpan/Locale-Codes/t/script2code_old.t | 55 - .../t/{code2langfam.t => script_old.t} | 43 +- cpan/Locale-Codes/t/testfunc.pl | 4 +- cpan/Locale-Codes/t/vals.pl | 212 +++ cpan/Locale-Codes/t/vals_country.pl | 971 +++++++++++ cpan/Locale-Codes/t/vals_currency.pl | 134 ++ cpan/Locale-Codes/t/vals_langext.pl | 53 + cpan/Locale-Codes/t/vals_langfam.pl | 54 + cpan/Locale-Codes/t/vals_language.pl | 313 ++++ cpan/Locale-Codes/t/vals_langvar.pl | 53 + cpan/Locale-Codes/t/vals_script.pl | 68 + cpan/perlfaq/lib/perlfaq.pm | 2 +- cpan/perlfaq/lib/perlfaq.pod | 2 +- cpan/perlfaq/lib/perlfaq1.pod | 26 +- cpan/perlfaq/lib/perlfaq2.pod | 2 +- cpan/perlfaq/lib/perlfaq3.pod | 8 +- cpan/perlfaq/lib/perlfaq4.pod | 31 +- cpan/perlfaq/lib/perlfaq5.pod | 2 +- cpan/perlfaq/lib/perlfaq6.pod | 2 +- cpan/perlfaq/lib/perlfaq7.pod | 2 +- cpan/perlfaq/lib/perlfaq8.pod | 2 +- cpan/perlfaq/lib/perlfaq9.pod | 2 +- cpan/perlfaq/lib/perlglossary.pod | 2 +- 94 files changed, 3678 insertions(+), 3864 deletions(-) delete mode 100644 cpan/Locale-Codes/t/code2country.t delete mode 100644 cpan/Locale-Codes/t/code2country_old.t delete mode 100644 cpan/Locale-Codes/t/code2currency.t delete mode 100644 cpan/Locale-Codes/t/code2language.t delete mode 100644 cpan/Locale-Codes/t/code2script.t delete mode 100644 cpan/Locale-Codes/t/country2code.t delete mode 100644 cpan/Locale-Codes/t/country2code_old.t delete mode 100644 cpan/Locale-Codes/t/country_code2code.t delete mode 100644 cpan/Locale-Codes/t/country_code2code_old.t copy cpan/Locale-Codes/t/{code2langfam.t => currency.t} (54%) delete mode 100644 cpan/Locale-Codes/t/currency2code.t delete mode 100644 cpan/Locale-Codes/t/currency2code_old.t rename cpan/Locale-Codes/t/{code2langext.t => currency_old.t} (54%) rename cpan/Locale-Codes/t/{langfam2code.t => langext.t} (54%) delete mode 100644 cpan/Locale-Codes/t/langext2code.t rename cpan/Locale-Codes/t/{code2langvar.t => langfam.t} (54%) delete mode 100644 cpan/Locale-Codes/t/language2code.t copy cpan/Locale-Codes/t/{code2langfam.t => langvar.t} (54%) delete mode 100644 cpan/Locale-Codes/t/langvar2code.t copy cpan/Locale-Codes/t/{code2langfam.t => script.t} (54%) delete mode 100644 cpan/Locale-Codes/t/script2code.t delete mode 100644 cpan/Locale-Codes/t/script2code_old.t rename cpan/Locale-Codes/t/{code2langfam.t => script_old.t} (54%) create mode 100644 cpan/Locale-Codes/t/vals.pl create mode 100644 cpan/Locale-Codes/t/vals_country.pl create mode 100644 cpan/Locale-Codes/t/vals_currency.pl create mode 100644 cpan/Locale-Codes/t/vals_langext.pl create mode 100644 cpan/Locale-Codes/t/vals_langfam.pl create mode 100644 cpan/Locale-Codes/t/vals_language.pl create mode 100644 cpan/Locale-Codes/t/vals_langvar.pl create mode 100644 cpan/Locale-Codes/t/vals_script.pl diff --git a/MANIFEST b/MANIFEST index e007a0d..4440eb7 100644 --- 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 diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 5a9478e..215882c 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -120,7 +120,7 @@ use File::Glob qw(:case); %Modules = ( 'Archive::Tar' => { - 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.04.tar.gz', + 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.06.tar.gz', 'FILES' => q[cpan/Archive-Tar], 'BUGS' => '[email protected]', 'EXCLUDED' => [ @@ -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 @@ -911,7 +911,7 @@ use File::Glob qw(:case); }, 'perlfaq' => { - 'DISTRIBUTION' => 'LLAP/perlfaq-5.021010.tar.gz', + 'DISTRIBUTION' => 'LLAP/perlfaq-5.021011.tar.gz', 'FILES' => q[cpan/perlfaq], 'EXCLUDED' => [ qw( inc/CreateQuestionList.pm diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm index 1b792df..1c16078 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar.pm @@ -31,7 +31,7 @@ use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD $DEBUG = 0; $WARN = 1; $FOLLOW_SYMLINK = 0; -$VERSION = "2.04"; +$VERSION = "2.06"; $CHOWN = 1; $CHMOD = 1; $SAME_PERMISSIONS = $> == 0 ? 1 : 0; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm index 399aaf6..4dc1a3b 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm @@ -3,7 +3,7 @@ package Archive::Tar::Constant; BEGIN { require Exporter; - $VERSION = '2.04'; + $VERSION = '2.06'; @ISA = qw[Exporter]; require Time::Local if $^O eq "MacOS"; @@ -50,7 +50,7 @@ use constant MODE => do { 0666 & (0777 & ~umask) }; use constant STRIP_MODE => sub { shift() & 0777 }; use constant CHECK_SUM => " "; -use constant UNPACK => 'A100 A8 A8 A8 a12 A12 A8 A1 A100 A6 A2 A32 A32 A8 A8 A155 x12'; # cdrake - size must be a12 - not A12 - or else screws up huge file sizes (>8gb) +use constant UNPACK => 'a100 a8 a8 a8 a12 a12 a8 a1 a100 A6 a2 a32 a32 a8 a8 a155 x12'; # cdrake - size must be a12 - not A12 - or else screws up huge file sizes (>8gb) use constant PACK => 'a100 a8 a8 a8 a12 a12 A8 a1 a100 a6 a2 a32 a32 a8 a8 a155 x12'; use constant NAME_LENGTH => 100; use constant PREFIX_LENGTH => 155; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/File.pm b/cpan/Archive-Tar/lib/Archive/Tar/File.pm index 3aa1b3c..1207dbd 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/File.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/File.pm @@ -13,7 +13,7 @@ use Archive::Tar::Constant; use vars qw[@ISA $VERSION]; #@ISA = qw[Archive::Tar]; -$VERSION = '2.04'; +$VERSION = '2.06'; ### set value to 1 to oct() it during the unpack ### diff --git a/cpan/Locale-Codes/lib/Locale/Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes.pm index 118c277..8f74374 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes.pm +++ b/cpan/Locale-Codes/lib/Locale/Codes.pm @@ -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: diff --git a/cpan/Locale-Codes/lib/Locale/Codes.pod b/cpan/Locale-Codes/lib/Locale/Codes.pod index 106f0ba..1fcd4d1 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes.pod +++ b/cpan/Locale-Codes/lib/Locale/Codes.pod @@ -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. diff --git a/cpan/Locale-Codes/lib/Locale/Codes/API.pod b/cpan/Locale-Codes/lib/Locale/Codes/API.pod index f196461..8ad363e 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/API.pod +++ b/cpan/Locale-Codes/lib/Locale/Codes/API.pod @@ -327,7 +327,7 @@ Currently maintained by Sullivan Beck ([email protected]). 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/lib/Locale/Codes/Changes.pod b/cpan/Locale-Codes/lib/Locale/Codes/Changes.pod index 199aa96..c47a00b 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/Changes.pod +++ b/cpan/Locale-Codes/lib/Locale/Codes/Changes.pod @@ -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 ([email protected]). =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. diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Constants.pm b/cpan/Locale-Codes/lib/Locale/Codes/Constants.pm index 44e8f6d..89b83cd 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/Constants.pm +++ b/cpan/Locale-Codes/lib/Locale/Codes/Constants.pm @@ -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: diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Country.pm b/cpan/Locale-Codes/lib/Locale/Codes/Country.pm index a182431..9455d86 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/Country.pm +++ b/cpan/Locale-Codes/lib/Locale/Codes/Country.pm @@ -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: diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Country.pod b/cpan/Locale-Codes/lib/Locale/Codes/Country.pod index f827732..56f78a9 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/Country.pod +++ b/cpan/Locale-Codes/lib/Locale/Codes/Country.pod @@ -174,7 +174,7 @@ Currently maintained by Sullivan Beck ([email protected]). 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/lib/Locale/Codes/Country_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/Country_Codes.pm index 11262e8..6b515f1 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 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'; diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Country_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/Country_Retired.pm index c07e44a..d073bbe 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 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), diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Currency.pm b/cpan/Locale-Codes/lib/Locale/Codes/Currency.pm index 3d1f406..555a7c0 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/Currency.pm +++ b/cpan/Locale-Codes/lib/Locale/Codes/Currency.pm @@ -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: diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Currency.pod b/cpan/Locale-Codes/lib/Locale/Codes/Currency.pod index bc5ea0d..60bf9d9 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/Currency.pod +++ b/cpan/Locale-Codes/lib/Locale/Codes/Currency.pod @@ -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 ([email protected]). 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. diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Currency_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/Currency_Codes.pm index d1d39b7..70011a5 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 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), diff --git a/cpan/Locale-Codes/lib/Locale/Codes/Currency_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/Currency_Retired.pm index 483238f..447c3a6 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 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)) ], diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm index 6376da2..bf7d97b 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm +++ b/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pm @@ -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: diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pod b/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pod index 271a5ac..5d97492 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pod +++ b/cpan/Locale-Codes/lib/Locale/Codes/LangExt.pod @@ -108,7 +108,7 @@ Currently maintained by Sullivan Beck ([email protected]). =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. diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Codes.pm index e2e1834..86c78b1 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 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'; diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangExt_Retired.pm index a0ec2d2..c9e0502 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 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), diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm index fccec91..b3b96c1 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm +++ b/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pm @@ -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: diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pod b/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pod index acf71f5..478edb8 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pod +++ b/cpan/Locale-Codes/lib/Locale/Codes/LangFam.pod @@ -108,7 +108,7 @@ Currently maintained by Sullivan Beck ([email protected]). =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. diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Codes.pm index 0908061..d1d1946 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 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'; diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Retired.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangFam_Retired.pm index 2fce421..eddff37 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.37'; +$VERSION='3.38'; $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 23b20cf..eb00999 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pm +++ b/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pm @@ -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: diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pod b/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pod index b815e13..6e6b895 100644 --- a/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pod +++ b/cpan/Locale-Codes/lib/Locale/Codes/LangVar.pod @@ -110,7 +110,7 @@ Currently maintained by Sullivan Beck ([email protected]). =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. diff --git a/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Codes.pm b/cpan/Locale-Codes/lib/Locale/Codes/LangVar_Codes.pm index 7613dd0..89528c1 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 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), **** PATCH TRUNCATED AT 2000 LINES -- 10108 NOT SHOWN **** -- Perl5 Master Repository
