From d39e80b3472b0afc631a1f96f8063e5063a79e82 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 8 Oct 2008 15:57:49 +0000
Subject: (setupBootloaderBefore) warn that "preparing bootloader" can take
 some time (eg: under vbox)  (#43036)

we could check that $o->{mouse}}{Protocol} eq 'vboxmouse' but it's
simpler to just always say it
---
 perl-install/install/NEWS                 | 1 +
 perl-install/install/steps_interactive.pm | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index f455e0f31..06ab7179f 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -5,6 +5,7 @@
   o properly handle big text in list such as security level
     descriptions (#43561)
 - continue installing if an advertising image is corrupted (#37674)
+- warn that "preparing bootloader" can take some time (eg: under vbox)
 
 Version 11.68 - 3 October 2008
 
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index cf3bfacc8..ffcc4b03b 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -1039,7 +1039,9 @@ sub setRootPassword_addUser {
 sub setupBootloaderBefore {
     my ($o) = @_;
     local $o->{pop_wait_messages} = 1;
-    my $_w = $o->wait_message(N("Preparing bootloader..."), N("Preparing bootloader..."));
+    my $_w = $o->wait_message(N("Preparing bootloader..."), N("Preparing bootloader...") . "\n" .
+                                N("Be patient, this may take a while...")
+                            );
     $o->SUPER::setupBootloaderBefore;
 }
 
-- 
cgit v1.2.1