diff options
| author | Karl Williamson <khw@cpan.org> | 2022-08-04 15:48:13 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-08-22 06:52:08 -0600 |
| commit | 89645941a287edd515fc2ff17f5008eb1c557cfb (patch) | |
| tree | 616f1a00189d2bbfc50edc30504ea0096a2132cf /t/run | |
| parent | 3c6d113661fd06347e00b355f8226944376da4cc (diff) | |
| download | perl-89645941a287edd515fc2ff17f5008eb1c557cfb.tar.gz | |
run/locale.t: Use langinfo not localeconv
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/locale.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/run/locale.t b/t/run/locale.t index 0a4a80ebe7..3d9b7a26ce 100644 --- a/t/run/locale.t +++ b/t/run/locale.t @@ -21,6 +21,7 @@ BEGIN { } } use Config; +use I18N::Langinfo qw(langinfo RADIXCHAR); my $have_strtod = $Config{d_strtod} eq 'define'; my $have_localeconv = defined $Config{d_locconv} && $Config{d_locconv} eq 'define'; my @locales = find_locales( [ 'LC_ALL', 'LC_CTYPE', 'LC_NUMERIC' ]); @@ -141,7 +142,7 @@ EOF } else { $different ||= $_; $difference ||= $s; - my $radix = localeconv()->{decimal_point}; + my $radix = langinfo(RADIXCHAR); # For utf8 locales with a non-ascii radix, it should be encoded as # UTF-8 with the internal flag so set. |