From 5ff1e05787636680f50387406072d82123154942 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 18 Aug 2004 09:23:58 +0000
Subject: restrict the wait message (so that it's dead when an error message is
 displayed)

---
 perl-install/any.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index bcc5358ed..cde0da8f4 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -108,11 +108,12 @@ sub installBootloader {
 
     install_acpi_pkgs($in->do_pkgs, $b);
 
-    my $_w = $in->wait_message(N("Please wait"), N("Bootloader installation in progress"));
-
     eval { run_program::rooted($::prefix, 'lilo', '-u') } if $::isInstall && !$::o->{isUpgrade} && -e "$::prefix/etc/lilo.conf" && glob("$::prefix/boot/boot.*");
 
-    eval { bootloader::install($b, $all_hds) };
+    eval { 
+	my $_w = $in->wait_message(N("Please wait"), N("Bootloader installation in progress"));
+	bootloader::install($b, $all_hds);
+    };
 
     if (my $err = $@) {
 	$err =~ /wizcancel/ and return;
-- 
cgit v1.2.1