summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm6
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;