From 19f5efa2b0c3cc95fe7348d56391eec57201425d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 20 Feb 2003 19:23:28 +0000 Subject: fix $check_complete use in gtk summary --- perl-install/install_steps_gtk.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index cdf4cd940..1ea7832c8 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -660,10 +660,7 @@ sub summary_prompt { 0, $w->create_okcancel(undef, '', '', if_($help_sub, [ N("Help"), $help_sub, 1 ])) )); - while (1) { - $w->main; - last if $check_complete->(); - } + $w->main($check_complete); } 1; -- cgit v1.2.1