summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-25 13:42:12 +0200
committerAnne Nicolas <ennael@mageia.org>2015-05-25 13:42:12 +0200
commitaf6fca4f534629de9371ea6a29843505050b3374 (patch)
treed0ed295bcb159d467b70681e417ff9373a1658b9 /perl-install
parentf5dfbc489a7607aee9b7687ca6fe1a0b7792d78a (diff)
downloaddrakx-af6fca4f534629de9371ea6a29843505050b3374.tar
drakx-af6fca4f534629de9371ea6a29843505050b3374.tar.gz
drakx-af6fca4f534629de9371ea6a29843505050b3374.tar.bz2
drakx-af6fca4f534629de9371ea6a29843505050b3374.tar.xz
drakx-af6fca4f534629de9371ea6a29843505050b3374.zip
die is not an option here (mga#8819)
just log the faillure and offer to either retry or abort
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/steps_interactive.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 5e0c2b9b6..3c2b2f591 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -749,6 +749,7 @@ Do you want to setup the update media?")),
return;
};
+ try_again:
#- bring all interface up for installing updates packages.
install::interactive::upNetwork($o);
@@ -757,7 +758,12 @@ Do you want to setup the update media?")),
log::l("installUpdates: successfully added media");
} else {
log::l("installUpdates: failed to add media");
- die "failed to add media"
+ if ($o->ask_okcancel(N("Warning"),
+ N("Failure when adding medium") . "\n" . N("Retry?"))) {
+ goto try_again;
+ } else {
+ return 0;
+ }
}
$o->ask_yesorno_({ title => N("Updates"), messages => formatAlaTeX(