From 60e4ca037e6615e579123685ac93aa6311f49f17 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 21 Aug 2002 10:56:37 +0000
Subject: fixed stupid typo for bestKernelPackage.

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 060a48090..e3858e668 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -169,7 +169,7 @@ sub bestKernelPackage {
     my ($packages) = @_;
     my $best;
 
-    foreach ($packages->{provides}{kernel}) {
+    foreach (keys %{$packages->{provides}{kernel}}) {
 	my $pkg = $packages->{depslist}[$_] or next;
 	$pkg->name =~ /kernel-\d/ or next;
 	!$best || $pkg->compare_pkg($best) > 0 and $best = $pkg;
-- 
cgit v1.2.1