summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/steps_interactive.pm')
-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(