diff options
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 6 |
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; |