diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-08-21 10:56:37 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-08-21 10:56:37 +0000 |
| commit | 60e4ca037e6615e579123685ac93aa6311f49f17 (patch) | |
| tree | 1e98d65fc67011aeef2209d1c3974d320c8b0f3d /perl-install | |
| parent | cbb1c62ed4f28076bd40f02f367125a3f8389817 (diff) | |
| download | drakx-60e4ca037e6615e579123685ac93aa6311f49f17.tar drakx-60e4ca037e6615e579123685ac93aa6311f49f17.tar.gz drakx-60e4ca037e6615e579123685ac93aa6311f49f17.tar.bz2 drakx-60e4ca037e6615e579123685ac93aa6311f49f17.tar.xz drakx-60e4ca037e6615e579123685ac93aa6311f49f17.zip | |
fixed stupid typo for bestKernelPackage.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
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; |