diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-14 12:11:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-14 12:11:22 +0000 |
| commit | 02e9c2c027ac49dce580521a7279b1968836685d (patch) | |
| tree | f008d92413826e07686671b2ba6524067c7d3efe /perl-install | |
| parent | e4179e04d6c1fff7b7601644089631d6a6eae0c4 (diff) | |
| download | drakx-02e9c2c027ac49dce580521a7279b1968836685d.tar drakx-02e9c2c027ac49dce580521a7279b1968836685d.tar.gz drakx-02e9c2c027ac49dce580521a7279b1968836685d.tar.bz2 drakx-02e9c2c027ac49dce580521a7279b1968836685d.tar.xz drakx-02e9c2c027ac49dce580521a7279b1968836685d.zip | |
(wait_message_endW): don't log "none stacked wait-messages" (as a lot of
them exist...)
(waitbox): remove spurious '0' in wait_messages
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive_newt.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm index a94748a70..1c63591b1 100644 --- a/perl-install/interactive_newt.pm +++ b/perl-install/interactive_newt.pm @@ -205,7 +205,7 @@ sub ask_from_entries_refW { sub waitbox { my ($title, $messages) = @_; - my ($t, $w, $h) = myTextbox(1, 0, @$messages); + my ($t, $w, $h) = myTextbox(1, @$messages); my $f = Newt::Component::Form(\undef, '', 0); Newt::CenteredWindow($w, $h, $title); $f->FormAddComponent($t); @@ -229,7 +229,8 @@ sub wait_message_nextW { } sub wait_message_endW { my ($o, $w) = @_; - log::l("interactive_newt does not handle none stacked wait-messages") if $w->{form} != pop @wait_messages; + my $wait = pop @wait_messages; +# log::l("interactive_newt does not handle none stacked wait-messages") if $w->{form} != $wait; Newt::PopWindow; } |