summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/lang.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 4db0abbb4..f68bcaf3f 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -896,13 +896,13 @@ sub pack_langs {
sub system_locales_to_ourlocale {
my ($locale_lang, $locale_country) = @_;
my $locale = {};
- my $h = analysed_locale($locale_lang);
+ my $h = analyse_locale_name($locale_lang);
my $locale_lang_no_encoding = join('_', $h->{main}, if_($h->{country}, $h->{country}));
$locale->{lang} = member($locale_lang_no_encoding, list_langs()) ?
$locale_lang_no_encoding : #- special lang's such as en_US pt_BR
$h->{main};
$locale->{lang} .= '@' . $h->{variant} if $h->{variant};
- $locale->{country} = $h->{country};
+ $locale->{country} = analyse_locale_name($locale_country)->{country};
$locale->{utf8} = $h->{encoding} eq 'UTF-8';
#- safe fallbacks
$locale->{lang} ||= 'en_US';