summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 025daecd2..281b61225 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -616,7 +616,11 @@ sub setupBootloader__grub2 {
# update entries (so that we can display their list below):
my $error;
+ # grub2-update can take many minutes on some systems (mga#18538)
+ # FIXME: change the message to be more informative
+ my $_w = $in->wait_message(N("Please wait"), N("Please wait"));
run_program::rooted($::prefix, 'update-grub2', '2>', \$error) or die "update-grub2 failed: $error";
+ undef $_w;
# read grub2 auto-generated entries (instead of keeping eg: grub/lilo ones):
my $b2 = bootloader::read_grub2();