From 48eef4a7356c4cabcc725ab315e12ab8b6712339 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 2 Mar 2005 11:08:08 +0000 Subject: "keyboard" InputDevice can also be called "kbd" --- 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 edb20fc09..3f8e59c4d 100644 --- a/perl-install/Xconfig/xfree.pm +++ b/perl-install/Xconfig/xfree.pm @@ -57,12 +57,12 @@ sub empty_config { my @keyboard_fields = qw(XkbLayout XkbModel XkbDisable XkbOptions XkbCompat); sub get_keyboard { my ($raw_X) = @_; - my $raw_kbd = first($raw_X->get_InputDevices('keyboard')) or die "no keyboard section"; + my $raw_kbd = first(map { $raw_X->get_InputDevices($_) } 'keyboard', 'kbd') or die "no keyboard section"; raw_export_section($raw_kbd, \@keyboard_fields); } sub set_keyboard { my ($raw_X, $kbd) = @_; - my $raw_kbd = first($raw_X->get_InputDevices('keyboard')) || _new_keyboard_section($raw_X); + my $raw_kbd = first(map { $raw_X->get_InputDevices($_) } 'keyboard', 'kbd') || _new_keyboard_section($raw_X); raw_import_section($raw_kbd, $kbd); _set_Option('keyboard', $raw_kbd, keys %$kbd); } -- cgit v1.2.1