added wait message during rebuild of rpm database as it takes some time.

1 files changed, 6 insertions, 0 deletions

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e74789c8c..3f8bc2a1e 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -587,6 +587,12 @@ If only some CDs are missing, unselect them, then click Ok."),
 }
 
 #------------------------------------------------------------------------------
+sub beforeInstallPackages($) {
+    my ($o) = @_;
+    my $w = $o->wait_message('', $o->{isUpgrade} ? _("Rebuilding package database") : _("Opening package database"));
+    $o->SUPER::beforeInstallPackages($o);
+}
+
 sub installPackages {
     my ($o, $packages) = @_;
     my ($current, $total) = 0;