summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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;
}