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/modules.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index bbc1a04f7..198bc118f 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -335,8 +335,8 @@ sub text_of_type($) {
 
 sub text2driver($) {
     my ($text) = @_;
-    while (my ($k, $v) = each %drivers) {
-	$v->{text} eq $text and return $k;
+    foreach (keys %drivers) {
+	$drivers{$_}{text} eq $text and return $_;
     }
     die "$text is not a valid module description";
 }
-- 
cgit v1.2.1