diff options
| author | damien <damien@mandriva.com> | 2001-09-12 20:33:06 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-09-12 20:33:06 +0000 |
| commit | 57a9679f8c2f8dc39cf6e674075e66e4c4431ac7 (patch) | |
| tree | caaed8bb10eb086dd14f8cb5a583251eae7676ff | |
| parent | f6a6c3aa7985f75454c49aee2f49291085cb9720 (diff) | |
| download | drakx-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.tar drakx-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.tar.gz drakx-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.tar.bz2 drakx-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.tar.xz drakx-57a9679f8c2f8dc39cf6e674075e66e4c4431ac7.zip | |
added wait message while installing package
| -rw-r--r-- | perl-install/standalone.pm | 2 |
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; } |