From 4d03533983eda1325e04122a4dc478d892862471 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Sep 1999 19:46:26 +0000
Subject: no_comment

---
 perl-install/keyboard.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/keyboard.pm')

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) {
-- 
cgit v1.2.1