From 739c16128f23cdd586ea3f6066916c443689e4ae Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 04:16:28 +0000
Subject: create keyboard::configure_xorg() and use it (and don't call it
 inside a eval, no error should occur)

---
 perl-install/keyboard.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'perl-install/keyboard.pm')

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 454b346b1..b70da0746 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -630,6 +630,17 @@ sub write {
     }
 }
 
+sub configure_xorg {
+    my ($keyboard) = @_;
+
+    require Xconfig::default;
+    my $xfree_conf = Xconfig::xfree->read;
+    if (!is_empty_array_ref($xfree_conf)) {
+	Xconfig::default::config_keyboard($xfree_conf, $keyboard);
+	$xfree_conf->write;
+    }
+}
+
 sub read() {
     my %keyboard = getVarsFromSh("$::prefix/etc/sysconfig/keyboard") or return;
     if (!$keyboard{KEYBOARD}) {
-- 
cgit v1.2.1