summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-09-12 20:33:06 +0000
committerdamien <damien@mandriva.com>2001-09-12 20:33:06 +0000
commit57a9679f8c2f8dc39cf6e674075e66e4c4431ac7 (patch)
treecaaed8bb10eb086dd14f8cb5a583251eae7676ff
parentf6a6c3aa7985f75454c49aee2f49291085cb9720 (diff)
downloaddrakx-backup-do-not-use-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.tar
drakx-backup-do-not-use-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.tar.gz
drakx-backup-do-not-use-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.tar.bz2
drakx-backup-do-not-use-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.tar.xz
drakx-backup-do-not-use-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.zip
added wait message while installing package
-rw-r--r--perl-install/standalone.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 8f3c641bb..112705f69 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -22,7 +22,9 @@ sub interactive::do_pkgs {
sub install {
my ($o, @l) = @_;
$o->{in}->suspend;
+ my $wait = $in->wait_message('', _("Installing packages..."));
my $ret = system('urpmi', '--allow-medium-change', '--auto', '--best-output', @l) == 0;
+ undef $wait;
$o->{in}->resume;
$ret;
}