diff options
author | Karl Williamson <khw@cpan.org> | 2022-07-16 13:26:34 -0600 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2022-07-19 07:40:19 -0400 |
commit | b7d47e3a5f074b49fcfa68341708db3e5ca50b55 (patch) | |
tree | dd2af09760f6d4388a7cab21a9b98c11ae261a33 /dist/I18N-LangTags | |
parent | 2c903e6e18111fa9ed43ca6a95321c5116bffec4 (diff) | |
download | perl-b7d47e3a5f074b49fcfa68341708db3e5ca50b55.tar.gz |
I18N:LangTags: Fix casing issue GH #16500
This was caused by errors in the data. A few entries weren't
lowercase like all the rest are.
Diffstat (limited to 'dist/I18N-LangTags')
-rw-r--r-- | dist/I18N-LangTags/lib/I18N/LangTags/List.pm | 20 | ||||
-rw-r--r-- | dist/I18N-LangTags/t/05_main.t | 9 |
2 files changed, 18 insertions, 11 deletions
diff --git a/dist/I18N-LangTags/lib/I18N/LangTags/List.pm b/dist/I18N-LangTags/lib/I18N/LangTags/List.pm index 5eef8eebaf..17ac9b111b 100644 --- a/dist/I18N-LangTags/lib/I18N/LangTags/List.pm +++ b/dist/I18N-LangTags/lib/I18N/LangTags/List.pm @@ -4,7 +4,7 @@ package I18N::LangTags::List; # Time-stamp: "2004-10-06 23:26:21 ADT" use strict; our (%Name, %Is_Disrec, $Debug); -our $VERSION = '0.40'; +our $VERSION = '0.41'; # POD at the end. #---------------------------------------------------------------------- @@ -353,9 +353,9 @@ eq Zend eq Azeri Notable forms: -{az-Arab} Azerbaijani in Arabic script; -{az-Cyrl} Azerbaijani in Cyrillic script; -{az-Latn} Azerbaijani in Latin script. +{az-arab} Azerbaijani in Arabic script; +{az-cyrl} Azerbaijani in Cyrillic script; +{az-latn} Azerbaijani in Latin script. =item {ban} : Balinese @@ -473,8 +473,8 @@ eq Nyanja. eq Chinyanja. Many forms are mutually un-intelligible in spoken media. Notable forms: -{zh-Hans} Chinese, in simplified script; -{zh-Hant} Chinese, in traditional script; +{zh-hans} Chinese, in simplified script; +{zh-hant} Chinese, in traditional script; {zh-tw} Taiwan Chinese; {zh-cn} PRC Chinese; {zh-sg} Singapore Chinese; @@ -1370,8 +1370,8 @@ NOT Scots Gaelic! eq Serb. NOT Sorbian. Notable forms: -{sr-Cyrl} : Serbian in Cyrillic script; -{sr-Latn} : Serbian in Latin script. +{sr-cyrl} : Serbian in Cyrillic script; +{sr-latn} : Serbian in Latin script. =item {srr} : Serer @@ -1612,8 +1612,8 @@ Not a tag for normal use. eq E<Ouml>zbek Notable forms: -{uz-Cyrl} Uzbek in Cyrillic script; -{uz-Latn} Uzbek in Latin script. +{uz-cyrl} Uzbek in Cyrillic script; +{uz-latn} Uzbek in Latin script. =item {vai} : Vai diff --git a/dist/I18N-LangTags/t/05_main.t b/dist/I18N-LangTags/t/05_main.t index 7323534afc..9a0887d97b 100644 --- a/dist/I18N-LangTags/t/05_main.t +++ b/dist/I18N-LangTags/t/05_main.t @@ -1,5 +1,5 @@ use strict; -use Test::More tests => 64; +use Test::More tests => 67; BEGIN {use_ok('I18N::LangTags', ':ALL');} note("Perl v$], I18N::LangTags v$I18N::LangTags::VERSION"); @@ -97,7 +97,14 @@ foreach my $lt (qw( cr-syllabic-western cr-western cr-latin + az-latin )) { my $name = I18N::LangTags::List::name($lt); isnt($name, undef, "I18N::LangTags::List::name('$lt')"); } + +my $correct = 'Azerbaijani in Latin script'; +is(I18N::LangTags::List::name('az-Latn'), $correct, + "Properly recognize 'az-latin' (with script subcomponent): # #16500"); +is(I18N::LangTags::List::name('az-latn'), $correct, + "Properly recognize 'az-latin' (with script subcomponent): # #16500"); |