summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 5fbbe1ebb..30860db13 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -764,7 +764,7 @@ Do you want to install the updates ?")),
\@mirrors,
$u->{mirror});
};
- return if $@;
+ return if $@ || !$u->{mirror};
eval {
if ($u->{mirror}) {
@@ -772,7 +772,7 @@ Do you want to install the updates ?")),
$update_medium = crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror});
}
};
- } while $@;
+ } while $@ || !$update_medium;
if ($update_medium) {
if ($o->choosePackagesTree($o->{packages}, $update_medium)) {