summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-14 12:11:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-14 12:11:22 +0000
commit02e9c2c027ac49dce580521a7279b1968836685d (patch)
treef008d92413826e07686671b2ba6524067c7d3efe /perl-install
parente4179e04d6c1fff7b7601644089631d6a6eae0c4 (diff)
downloaddrakx-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.pm5
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;
}