summaryrefslogtreecommitdiffstats
path: root/perl-install/install/media.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/media.pm')
-rw-r--r--perl-install/install/media.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 93761008a..c78675315 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -475,9 +475,9 @@ sub _parse_media_cfg {
}
sub select_only_some_media {
- my ($packages, $selected_names) = @_;
+ my ($media_list, $selected_names) = @_;
my @names = split(',', $selected_names);
- foreach my $m (@{$packages->{media}}) {
+ foreach my $m (@{$media_list}) {
my $bool = !member($m->{name}, @names);
# workaround urpmi transforming "ignore => ''" or "ignore => 0" into "ignore => 1":
undef $bool if !$bool;
@@ -669,7 +669,7 @@ sub get_media_cfg {
urpm::media::add_distrib_media($packages, undef, $uri, ask_media => undef); #allmedia => 1
- select_only_some_media($packages, $selected_names) if defined $selected_names;
+ select_only_some_media($packages->{media}, $selected_names) if defined $selected_names;
if ($deselectionAllowed && !@{$packages->{media}}) {
my $allow = _allow_copy_rpms_on_disk($phys_medium, $packages->{media});