From f87dd8d01e35b6634154007f5067849c46ef127d Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 18 Jan 2002 10:08:04 +0000 Subject: allow cancel when installUpdates. --- perl-install/install_steps_interactive.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') 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}; } } -- cgit v1.2.1