summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-06 00:38:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-06 00:38:57 +0000
commitc75193289b79d4c0687aa6a597b51436568f8360 (patch)
tree0dde0958b1d48a729e30be420f9f8c94004b7ef8 /perl-install/keyboard.pm
parentc5d30320d3d120ccd291ccc7b7271400a4f20e4a (diff)
downloaddrakx-c75193289b79d4c0687aa6a597b51436568f8360.tar
drakx-c75193289b79d4c0687aa6a597b51436568f8360.tar.gz
drakx-c75193289b79d4c0687aa6a597b51436568f8360.tar.bz2
drakx-c75193289b79d4c0687aa6a597b51436568f8360.tar.xz
drakx-c75193289b79d4c0687aa6a597b51436568f8360.zip
no_comment
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm8
1 files changed, 0 insertions, 8 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index b479c94b1..dcde8407c 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -182,18 +182,10 @@ arch() eq "ppc" ? (
#-######################################################################################
#- Functions
#-######################################################################################
-sub list { map { $_->[0] } values %keyboards }
sub xmodmaps { keys %keyboards }
sub keyboard2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] }
sub keyboard2kmap { $keyboards{$_[0]} && $keyboards{$_[0]}[1] }
sub keyboard2xkb { $keyboards{$_[0]} && $keyboards{$_[0]}[2] }
-sub text2keyboard {
- my ($t) = @_;
- foreach (keys %keyboards) {
- lc($keyboards{$_}[0]) eq lc($t) and return $_;
- }
- die "unknown keyboard $t";
-}
sub loadkeys_files {
my $archkbd = arch() =~ /^sparc/ ? "sun" : arch() =~ /^i\d/ ? "i386" : arch();