diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-01 11:31:05 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-01 11:31:05 +0000 |
| commit | 11647c80f3898d05df4e3deedc2f415c02632bbf (patch) | |
| tree | 2393aa4769eb5b16ac974ef9697f275a03215733 /perl-install | |
| parent | 64d4245289fe25422253839947ef76ac165184d7 (diff) | |
| download | drakx-11647c80f3898d05df4e3deedc2f415c02632bbf.tar drakx-11647c80f3898d05df4e3deedc2f415c02632bbf.tar.gz drakx-11647c80f3898d05df4e3deedc2f415c02632bbf.tar.bz2 drakx-11647c80f3898d05df4e3deedc2f415c02632bbf.tar.xz drakx-11647c80f3898d05df4e3deedc2f415c02632bbf.zip | |
don't display a wait_message in newt, but do suspend
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone.pm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index 7e5948f22..474d6beb7 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -27,12 +27,20 @@ sub interactive::do_pkgs { sub install { my ($o, @l) = @_; - $o->{in}->suspend; - my $wait = $o->{in}->wait_message('', _("Installing packages...")); + my $wait; + if ($o->{in}->isa('interactive::newt')) { + $o->{in}->suspend; + } else { + $wait = $o->{in}->wait_message('', _("Installing packages...")); + } standalone::explanations("installed packages @l"); my $ret = system('urpmi', '--allow-medium-change', '--auto', '--best-output', @l) == 0; - undef $wait; - $o->{in}->resume; + + if ($o->{in}->isa('interactive::newt')) { + $o->{in}->resume; + } else { + undef $wait; + } $ret; } |