From ede93e7faf703e6739cc7e743e8a937dab21987d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 13 Sep 2005 10:34:47 +0000
Subject: when upgrading and the keyboard config is wrong, write the unsafe
 config

---
 perl-install/install2.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install')

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';
 }
-- 
cgit v1.2.1