From 67189152f035ecdc5c07a83f6c3115775acaa9c7 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 29 Aug 2001 21:19:26 +0000
Subject: fixed if undef encountered in depslist when installing package
 (traversing depslist as $depOrder).

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

(limited to 'perl-install/pkgs.pm')

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)) {
-- 
cgit v1.2.1