diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/Langinfo.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/Langinfo.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/I18N/Langinfo.pm | 33 |
1 files changed, 17 insertions, 16 deletions
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. |