diff options
| -rw-r--r-- | perl-install/any.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 698593f44..933976302 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -1156,7 +1156,9 @@ sub sessions_with_order() { } sub urpmi_add_all_media { - my ($in, $o_previous_release) = @_; + my ($in, $o_previous_release, $o_mirror_url) = @_; + + $o_mirror_url = undef if $o_mirror_url eq '$MIRRORLIST'; my $binary = find { whereis_binary($_, $::prefix) } if_(check_for_xserver(), 'gurpmi.addmedia'), 'urpmi.addmedia'; if (!$binary) { @@ -1174,7 +1176,7 @@ sub urpmi_add_all_media { run_program::rooted($::prefix, 'urpmi.removemedia', '-a'); # Then add online media: my $wait; - my @options = ('--distrib', '--mirrorlist', '$MIRRORLIST'); + my @options = $o_mirror_url ? ( '--distrib', $o_mirror_url) : ('--distrib', '--mirrorlist', '$MIRRORLIST'); if ($binary eq 'urpmi.addmedia') { $wait = $in->wait_message(N("Please wait"), N("Please wait, adding media...")); } elsif ($in->isa('interactive::gtk')) { |