diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/I18N')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/LangTags/List.pm | 20 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/Langinfo.pm | 33 |
2 files changed, 27 insertions, 26 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/LangTags/List.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/LangTags/List.pm index 5eef8eebaf..17ac9b111b 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/LangTags/List.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/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/systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/Langinfo.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/Langinfo.pm index 7206e1ce85..8ff6eda2d7 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/Langinfo.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/Langinfo.pm @@ -5,11 +5,9 @@ use strict; use warnings; use Carp; -require Exporter; +use Exporter 'import'; require XSLoader; -our @ISA = qw(Exporter); - our @EXPORT = qw(langinfo); our @EXPORT_OK = qw( @@ -72,7 +70,7 @@ our @EXPORT_OK = qw( YESSTR ); -our $VERSION = '0.19'; +our $VERSION = '0.22'; XSLoader::load(); @@ -182,8 +180,11 @@ For the eras based on typically some ruler, such as the Japanese Emperor =head2 For systems without C<nl_langinfo> -Starting in Perl 5.28, this module is available even on systems that lack a -native C<nl_langinfo>. On such systems, it uses various methods to construct +This module originally was just a wrapper for the libc C<nl_langinfo> +function, and did not work on systems lacking it, such as Windows. + +Starting in Perl 5.28, this module works on all platforms. When +C<nl_langinfo> is not available, it uses various methods to construct what that function, if present, would return. But there are potential glitches. These are the items that could be different: @@ -195,8 +196,11 @@ Unimplemented, so returns C<"">. =item C<CODESET> -Unimplemented, except on Windows, due to the vagaries of vendor locale names, -returning C<""> on non-Windows. +This should work properly for Windows platforms. On almost all other modern +platforms, it will reliably return "UTF-8" if that is the code set. +Otherwise, it depends on the locale's name. If that is of the form +C<foo.bar>, it will assume C<bar> is the code set; and it also knows about the +two locales "C" and "POSIX". If none of those apply it returns C<"">. =item C<YESEXPR> @@ -226,15 +230,14 @@ representation. =item C<CRNCYSTR> The return may be incorrect for those rare locales where the currency symbol -replaces the radix character. -Send email to L<mailto:perlbug@perl.org> if you have examples of it needing -to work differently. +replaces the radix character. If you have examples of it needing to work +differently, please file a report at L<https://github.com/Perl/perl5/issues>. =item C<ALT_DIGITS> -Currently this gives the same results as Linux does. -Send email to L<mailto:perlbug@perl.org> if you have examples of it needing -to work differently. +Currently this gives the same results as Linux does. If you have examples of +it needing to work differently, please file a report at +L<https://github.com/Perl/perl5/issues>. =item C<ERA_D_FMT> @@ -275,8 +278,6 @@ workaround for this; patches welcome: see L<perlapi/switch_to_global_locale>. L<perllocale>, L<POSIX/localeconv>, L<POSIX/setlocale>, L<nl_langinfo(3)>. -The langinfo() function is just a wrapper for the C nl_langinfo() interface. - =head1 AUTHOR Jarkko Hietaniemi, E<lt>jhi@hut.fiE<gt>. Now maintained by Perl 5 porters. |