summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-03-18 15:41:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-03-18 15:41:25 +0000
commit901f3f8e24d58d0d1d553c4424b8bdb3e84440b7 (patch)
tree79d0ddc38b32d6dd9f97ed261c769ec85aad7dac /perl-install/install
parent782cf2217a9d00abb06c351db439dc8dd6ca870e (diff)
downloaddrakx-901f3f8e24d58d0d1d553c4424b8bdb3e84440b7.tar
drakx-901f3f8e24d58d0d1d553c4424b8bdb3e84440b7.tar.gz
drakx-901f3f8e24d58d0d1d553c4424b8bdb3e84440b7.tar.bz2
drakx-901f3f8e24d58d0d1d553c4424b8bdb3e84440b7.tar.xz
drakx-901f3f8e24d58d0d1d553c4424b8bdb3e84440b7.zip
- fix setting default lang (which is given by gfxboot)
nb: one must not set $o->{locale}{lang} directly, otherwise $o->{locale}{country} will not have a valid value, hence some issues...
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/install2.pm9
-rw-r--r--perl-install/install/steps.pm2
3 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 698d07f78..979fce870 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -2,6 +2,7 @@
o display kdm/gdm icon again (was disabled on year ago)
- do not write aliases for asus_acpi and thinkpad_acpi in
modprobe.preload, the modules are now handled by coldplug
+- fix setting default lang (which is given by gfxboot)
Version 10.15 - 14 March 2008
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index c18fb03cf..56226b55d 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -333,8 +333,8 @@ sub main {
map_each {
my ($n, $v) = @_;
my $f = ${{
- lang => sub { $o->{locale}{lang} = $v },
- flang => sub { $o->{locale}{lang} = $v; push @::auto_steps, 'selectLanguage' },
+ lang => sub { $o->{lang} = $v },
+ flang => sub { $o->{lang} = $v; push @::auto_steps, 'selectLanguage' },
langs => sub { $o->{locale}{langs} = +{ map { $_ => 1 } split(':', $v) } },
method => sub { $o->{method} = $v },
pcmcia => sub { $o->{pcmcia} = $v },
@@ -520,6 +520,11 @@ sub main {
mouse::load_modules($o->{mouse});
}
+ #- for auto_install compatibility with old $o->{lang},
+ #- and also for --lang and --flang
+ if ($o->{lang}) {
+ put_in_hash($o->{locale}, lang::system_locales_to_ourlocale($o->{lang}, $o->{lang}));
+ }
lang::set($o->{locale});
# keep the result otherwise monitor-edid does not return good results afterwards
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index 6eee0a30b..555fc9254 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -103,8 +103,6 @@ sub kill_action {}
sub selectLanguage {
my ($o) = @_;
- #- for auto_install compatibility with old $o->{lang}
- $o->{locale} = lang::system_locales_to_ourlocale($o->{lang}, $o->{lang}) if $o->{lang};
$o->{locale}{langs} ||= { $o->{locale}{lang} => 1 };
if (!exists $o->{locale}{country}) {