From 346eef57fa29984919f6f02b3bd6d3ce44592b61 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 1 Jul 2004 06:40:55 +0000
Subject: fix typo causing multiple "Keyboard" entries in XF86Config (bugzilla
 #10163)

---
 perl-install/Xconfig/xfree.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm
index 72526cf7e..21f828bd4 100644
--- a/perl-install/Xconfig/xfree.pm
+++ b/perl-install/Xconfig/xfree.pm
@@ -45,12 +45,12 @@ sub empty_config {
 my @keyboard_fields = qw(XkbLayout XkbModel XkbDisable XkbOptions XkbCompat);
 sub get_keyboard {
     my ($raw_X) = @_;
-    my $raw_kbd = $raw_X->get_Section('Keyboard') or die "no keyboard section";
+    my $raw_kbd = $raw_X->get_InputDevices('Keyboard') or die "no keyboard section";
     raw_export_section($raw_kbd, \@keyboard_fields);
 }
 sub set_keyboard {
     my ($raw_X, $kbd) = @_;
-    my $raw_kbd = $raw_X->get_Section('Keyboard') || _new_keyboard_section($raw_X);
+    my $raw_kbd = $raw_X->get_InputDevices('Keyboard') || _new_keyboard_section($raw_X);
     raw_import_section($raw_kbd, $kbd);
     _set_Option('keyboard', $raw_kbd, keys %$kbd);
 }
-- 
cgit v1.2.1