From 0c5c17666d1a8672a583ed55ecd7042a27080cbc Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 11 Jun 2010 17:25:43 +0000 Subject: pass media list to select_only_some_media --- perl-install/install/media.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/install/media.pm') 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}); -- cgit v1.2.1