summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-03-02 11:08:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-03-02 11:08:08 +0000
commit48eef4a7356c4cabcc725ab315e12ab8b6712339 (patch)
tree5cc5cc90ef0cb6e7abe45cc3480e2ed9e22340fe /perl-install
parentb89f1780a785c6d064cd2c1fa5523d7e4545fbbb (diff)
downloaddrakx-48eef4a7356c4cabcc725ab315e12ab8b6712339.tar
drakx-48eef4a7356c4cabcc725ab315e12ab8b6712339.tar.gz
drakx-48eef4a7356c4cabcc725ab315e12ab8b6712339.tar.bz2
drakx-48eef4a7356c4cabcc725ab315e12ab8b6712339.tar.xz
drakx-48eef4a7356c4cabcc725ab315e12ab8b6712339.zip
"keyboard" InputDevice can also be called "kbd"
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 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);
}