summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-09-13 10:34:47 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-09-13 10:34:47 +0000
commitede93e7faf703e6739cc7e743e8a937dab21987d (patch)
tree15b01a196bfc9524f75ba8a4dd469ad090d54605 /perl-install/install2.pm
parentb4ccab7224afd572322ecc21b7192977c33590eb (diff)
downloaddrakx-backup-do-not-use-ede93e7faf703e6739cc7e743e8a937dab21987d.tar
drakx-backup-do-not-use-ede93e7faf703e6739cc7e743e8a937dab21987d.tar.gz
drakx-backup-do-not-use-ede93e7faf703e6739cc7e743e8a937dab21987d.tar.bz2
drakx-backup-do-not-use-ede93e7faf703e6739cc7e743e8a937dab21987d.tar.xz
drakx-backup-do-not-use-ede93e7faf703e6739cc7e743e8a937dab21987d.zip
when upgrading and the keyboard config is wrong, write the unsafe config
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 1bb9537ec..8c1f58525 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -129,6 +129,9 @@ sub selectKeyboard {
$o->{keyboard}{unsafe} or return;
if (my $keyboard = keyboard::read()) {
$o->{keyboard} = $keyboard;
+ } elsif ($o->{isUpgrade}) {
+ #- oops, the keyboard config is wrong, writing the unsafe config
+ addToBeDone { keyboard::write($o->{keyboard}) } 'installPackages';
}
} 'formatPartitions';
}