summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/any.pm6
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')) {