diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/locale_threads.t')
| -rw-r--r-- | gnu/usr.bin/perl/lib/locale_threads.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/lib/locale_threads.t b/gnu/usr.bin/perl/lib/locale_threads.t index cda570be3a3..d5bfa342bf8 100644 --- a/gnu/usr.bin/perl/lib/locale_threads.t +++ b/gnu/usr.bin/perl/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 ','; } |