diff options
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 8 |
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( |