summaryrefslogtreecommitdiffstats
path: root/perl-install/install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r--perl-install/install/pkgs.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index a5452c3d5..4cc86e1af 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -160,7 +160,7 @@ sub bestKernelPackage {
sub packagesToInstall {
my ($packages) = @_;
my @packages;
- foreach (@{$packages->{mediums}}) {
+ foreach (@{$packages->{media}}) {
$_->{selected} or next;
log::l("examining packagesToInstall of medium $_->{name}");
push @packages, grep { $_->flag_selected } install::media::packagesOfMedium($packages, $_);
@@ -322,7 +322,7 @@ sub empty_packages() {
my $packages = new URPM;
#- add additional fields used by DrakX.
- @$packages{qw(count mediums)} = (0, []);
+ @$packages{qw(count media)} = (0, []);
$packages;
}
@@ -659,7 +659,7 @@ sub selectPackagesToUpgrade {
sub installTransactionClosure {
my ($packages, $id2pkg, $isUpgrade) = @_;
- foreach (grep { !$_->{selected} } @{$packages->{mediums}}) {
+ foreach (grep { !$_->{selected} } @{$packages->{media}}) {
foreach ($_->{start} .. $_->{end}) {
delete $id2pkg->{$_};
}
@@ -669,7 +669,7 @@ sub installTransactionClosure {
my $medium;
#- search first usable medium (media are sorted).
- foreach (@{$packages->{mediums}}) {
+ foreach (@{$packages->{media}}) {
if ($l[0] <= $_->{end}) {
#- we have a candidate medium, it could be the right one containing
#- the first package of @l...
@@ -779,7 +779,7 @@ sub install {
}
#- extract headers for parent as they are used by callback.
- extractHeaders(\@transToInstall, $packages->{mediums});
+ extractHeaders(\@transToInstall, $packages->{media});
my ($retry, $retry_count);
while (@transToInstall) {