From 6e0714d453adf6cb59f3a8083d3561d5f274be16 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 7 May 2000 15:41:55 +0000
Subject: no_comment

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

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

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index b312fc85a..969b24fbf 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -166,8 +166,8 @@ sub keyboard2kmap { $keyboards{$_[0]} && $keyboards{$_[0]}[1] }
 sub keyboard2xkb  { $keyboards{$_[0]} && $keyboards{$_[0]}[2] }
 sub text2keyboard {
     my ($t) = @_;
-    while (my ($k, $v) = each %keyboards) {
-        lc($v->[0]) eq lc($t) and return $k;
+    foreach (keys %keyboards) {
+	lc($keyboards{$_}[0]) eq lc($t) and return $_;
     }
     die "unknown keyboard $t";
 }
-- 
cgit v1.2.1