summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-02-19 17:02:39 +0000
committerFrancois Pons <fpons@mandriva.com>2003-02-19 17:02:39 +0000
commitb60694493568469869d1d8ef4279cdcf4cf5f4e1 (patch)
tree6a33af585422c472aa40ce40e8fd980dfd90d735 /perl-install
parentf3b4f1950cacb61e56b583a6b3dc2ccf9909220d (diff)
downloaddrakx-b60694493568469869d1d8ef4279cdcf4cf5f4e1.tar
drakx-b60694493568469869d1d8ef4279cdcf4cf5f4e1.tar.gz
drakx-b60694493568469869d1d8ef4279cdcf4cf5f4e1.tar.bz2
drakx-b60694493568469869d1d8ef4279cdcf4cf5f4e1.tar.xz
drakx-b60694493568469869d1d8ef4279cdcf4cf5f4e1.zip
fixed if update fail to allow retry.
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)) {