allow cancel when installUpdates.

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};
 	}
     }