From 57a9679f8c2f8dc39cf6e674075e66e4c4431ac7 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 12 Sep 2001 20:33:06 +0000
Subject: added wait message while installing package

---
 perl-install/standalone.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/standalone.pm')

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;
 }
-- 
cgit v1.2.1