From 516aa0771a29adcfc96c386c27104bf5554e8dc4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 26 Nov 2004 12:16:10 +0000
Subject: don't write X config when there is none (otherwise we write a partial
 X config)

---
 perl-install/standalone/keyboarddrake | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index cef005041..10352b2b5 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -38,9 +38,11 @@ if ($::expert) {
 keyboard::setxkbmap($keyboard);
 eval {
     my $xfree_conf = Xconfig::xfree->read;
-    my $xkb = keyboard::keyboard2full_xkb($keyboard);
-    $xfree_conf->set_keyboard($xkb);
-    $xfree_conf->write;
+    if (!is_empty_array_ref($xfree_conf)) {
+	my $xkb = keyboard::keyboard2full_xkb($keyboard);
+	$xfree_conf->set_keyboard($xkb);
+	$xfree_conf->write;
+    }
 };
 
 keyboard::write($keyboard);
-- 
cgit v1.2.1