diff options
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)) { |