diff options
| author | Karl Williamson <khw@cpan.org> | 2022-08-04 15:23:46 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-08-22 06:52:08 -0600 |
| commit | b3a092135a65aa95382bef2f488c565b806709bf (patch) | |
| tree | 6cbe2de7d1d3532e15fa11bfb633cdda222a06bb /lib | |
| parent | 3b50598a4fbe70a4e281c4c0a46ed471e73c8200 (diff) | |
| download | perl-b3a092135a65aa95382bef2f488c565b806709bf.tar.gz | |
locale_threads.t: Use I18N::Langinfo, not POSIX::localeconv()
The former is always present; the latter might not be
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/locale_threads.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/locale_threads.t b/lib/locale_threads.t index cda570be3a..d5bfa342bf 100644 --- a/lib/locale_threads.t +++ b/lib/locale_threads.t @@ -70,7 +70,8 @@ SKIP: { if ((my $s = sprintf("%g", $in)) eq "4.2") { $dot ||= $_; } else { - my $radix = localeconv()->{decimal_point}; + use I18N::Langinfo qw(langinfo RADIXCHAR); + my $radix = langinfo(RADIXCHAR); $comma ||= $_ if $radix eq ','; } |