diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-08-29 21:19:26 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-08-29 21:19:26 +0000 |
| commit | 67189152f035ecdc5c07a83f6c3115775acaa9c7 (patch) | |
| tree | 5ec83b6947c7e348f5b6a7d8005fb2911eef098f /perl-install | |
| parent | 2809617d727eb8375175091203174ddfb57d58a3 (diff) | |
| download | drakx-67189152f035ecdc5c07a83f6c3115775acaa9c7.tar drakx-67189152f035ecdc5c07a83f6c3115775acaa9c7.tar.gz drakx-67189152f035ecdc5c07a83f6c3115775acaa9c7.tar.bz2 drakx-67189152f035ecdc5c07a83f6c3115775acaa9c7.tar.xz drakx-67189152f035ecdc5c07a83f6c3115775acaa9c7.zip | |
fixed if undef encountered in depslist when installing package (traversing
depslist as $depOrder).
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 1b178301a..95c61c589 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1280,7 +1280,8 @@ sub install($$$;$$) { install_any::useMedium($medium); while ($i <= $media->{$medium}{max} && ($i < $min || scalar @transToInstall < $limitMinTrans)) { - my $dep = $packages{packageName($depOrder->[$i++])} or next; + my $pkg = $depOrder->[$i++] or next; + my $dep = $packages{packageName($pkg)} or next; if ($dep->[$MEDIUM]{selected}) { push @transToInstall, $dep; foreach (map { split '\|' } packageDepsId($dep)) { |