summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-30 19:46:26 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-30 19:46:26 +0000
commit4d03533983eda1325e04122a4dc478d892862471 (patch)
tree6eeae7e5caf5fd36ed29269ff103530cf9cb6e76 /perl-install/keyboard.pm
parentfaf75da8e25d5b5a16cfa6a91d5901ff83aa3a38 (diff)
downloaddrakx-4d03533983eda1325e04122a4dc478d892862471.tar
drakx-4d03533983eda1325e04122a4dc478d892862471.tar.gz
drakx-4d03533983eda1325e04122a4dc478d892862471.tar.bz2
drakx-4d03533983eda1325e04122a4dc478d892862471.tar.xz
drakx-4d03533983eda1325e04122a4dc478d892862471.zip
no_comment
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 7ee6a3728..27ba9690e 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -75,8 +75,9 @@ my %keyboards = (
#- Functions
#-######################################################################################
sub list { map { $_->[0] } values %keyboards }
-sub xmodmaps { map { $_ } values %keyboards }
+sub xmodmaps { keys %keyboards }
sub keyboard2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] }
+sub keyboard2xkb { $keyboards{$_[0]} && $keyboards{$_[0]}[2] }
sub text2keyboard {
my ($t) = @_;
while (my ($k, $v) = each %keyboards) {