From bbbe9e39d919e9f0799a451f71ac96d5681e4aec Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 27 Feb 2003 17:34:21 +0000 Subject: added message box in case of error. --- perl-install/install_steps_interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 564fa9001..d0dfcee81 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; + } while $@ || !$update_medium && $o->ask_warn('', N("Unable to contact mirror %s" . ($@ ? " :\n$@" : ""))); if ($update_medium) { if ($o->choosePackagesTree($o->{packages}, $update_medium)) { -- cgit v1.2.1