From 19f5efa2b0c3cc95fe7348d56391eec57201425d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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(-)

(limited to 'perl-install/install_steps_gtk.pm')

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