From c75193289b79d4c0687aa6a597b51436568f8360 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 6 Aug 2000 00:38:57 +0000
Subject: no_comment

---
 perl-install/keyboard.pm | 8 --------
 1 file changed, 8 deletions(-)

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

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