summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-08-29 21:19:26 +0000
committerFrancois Pons <fpons@mandriva.com>2001-08-29 21:19:26 +0000
commit67189152f035ecdc5c07a83f6c3115775acaa9c7 (patch)
tree5ec83b6947c7e348f5b6a7d8005fb2911eef098f
parent2809617d727eb8375175091203174ddfb57d58a3 (diff)
downloaddrakx-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).
-rw-r--r--perl-install/pkgs.pm3
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)) {