From 6a0d38e6c833adc3154b0f6dc7f04bfbbd2da696 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 27 Feb 2003 17:36:19 +0000 Subject: added dialog more precisely. --- perl-install/install_steps_interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index d0dfcee81..e5c2f8639 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -780,7 +780,7 @@ Do you want to install the updates ?")), $update_medium = crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror}); } }; - } while $@ || !$update_medium && $o->ask_warn('', N("Unable to contact mirror %s" . ($@ ? " :\n$@" : ""))); + } while $@ || !$update_medium && $o->ask_yesorno('', N("Unable to contact mirror %s" . ($@ ? " :\n$@" : "") . "\n\nWould you like to try again?")); if ($update_medium) { if ($o->choosePackagesTree($o->{packages}, $update_medium)) { -- cgit v1.2.1