summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e6696394c..ec8a4b4d9 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -916,7 +916,7 @@ Do you want to install the updates ?"))) || return;
\@mirrors,
$u->{mirror});
};
- return if $@;
+ return if $@ || !$u->{mirror};
my $update_medium = do {
my $w = $o->wait_message('', _("Contacting the mirror to get the list of available packages"));
@@ -927,6 +927,10 @@ Do you want to install the updates ?"))) || return;
if ($o->choosePackagesTree($o->{packages}, $update_medium)) {
$o->pkg_install;
$o->install_urpmi;
+ } else {
+ #- make sure to not try to install the packages (which are automatically selected by getPackage above).
+ #- this is possible by deselecting the medium (which can be re-selected above).
+ delete $update_medium->{select};
}
}