summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-01 06:40:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-01 06:40:55 +0000
commit346eef57fa29984919f6f02b3bd6d3ce44592b61 (patch)
tree329315b210e75cbd79b378683e3cd1c554b2ed08 /perl-install
parent10b64ee91fbf6532c5d520fcff5c913491dd80a3 (diff)
downloaddrakx-346eef57fa29984919f6f02b3bd6d3ce44592b61.tar
drakx-346eef57fa29984919f6f02b3bd6d3ce44592b61.tar.gz
drakx-346eef57fa29984919f6f02b3bd6d3ce44592b61.tar.bz2
drakx-346eef57fa29984919f6f02b3bd6d3ce44592b61.tar.xz
drakx-346eef57fa29984919f6f02b3bd6d3ce44592b61.zip
fix typo causing multiple "Keyboard" entries in XF86Config (bugzilla #10163)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/xfree.pm4
1 files changed, 2 insertions, 2 deletions
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);
}