diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 6 |
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}; } } |