summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-05-11 23:18:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-05-11 23:18:21 +0000
commitfcf8e1b52fcf5e81c5548e0b77df71f4d95430e4 (patch)
tree498491d25a0290e232f236927a37dccdc233ac27 /perl-install/install_steps.pm
parent76fdde3ca84a2cb6ce204e973f2386ac0738957b (diff)
downloaddrakx-fcf8e1b52fcf5e81c5548e0b77df71f4d95430e4.tar
drakx-fcf8e1b52fcf5e81c5548e0b77df71f4d95430e4.tar.gz
drakx-fcf8e1b52fcf5e81c5548e0b77df71f4d95430e4.tar.bz2
drakx-fcf8e1b52fcf5e81c5548e0b77df71f4d95430e4.tar.xz
drakx-fcf8e1b52fcf5e81c5548e0b77df71f4d95430e4.zip
use lang::analyse_locale_name() and lang::analyse_locale_name()
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 2c779e9b4..658dfc6f5 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -104,7 +104,8 @@ sub selectLanguage {
$o->{locale}{langs} ||= { $o->{locale}{lang} => 1 };
if (!exists $o->{locale}{country}) {
- $o->{locale}{country} = $1 if lang::l2locale($o->{locale}{lang}) =~ /^.._(..)/;
+ my $h = lang::analyse_locale_name($o->{locale}{lang});
+ $o->{locale}{country} = $h->{country} if $h->{country};
}
lang::set($o->{locale}, !$o->isa('interactive::gtk'));