summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-08-21 10:56:37 +0000
committerFrancois Pons <fpons@mandriva.com>2002-08-21 10:56:37 +0000
commit60e4ca037e6615e579123685ac93aa6311f49f17 (patch)
tree1e98d65fc67011aeef2209d1c3974d320c8b0f3d /perl-install
parentcbb1c62ed4f28076bd40f02f367125a3f8389817 (diff)
downloaddrakx-backup-do-not-use-60e4ca037e6615e579123685ac93aa6311f49f17.tar
drakx-backup-do-not-use-60e4ca037e6615e579123685ac93aa6311f49f17.tar.gz
drakx-backup-do-not-use-60e4ca037e6615e579123685ac93aa6311f49f17.tar.bz2
drakx-backup-do-not-use-60e4ca037e6615e579123685ac93aa6311f49f17.tar.xz
drakx-backup-do-not-use-60e4ca037e6615e579123685ac93aa6311f49f17.zip
fixed stupid typo for bestKernelPackage.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
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;