summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-20 19:23:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-20 19:23:28 +0000
commit19f5efa2b0c3cc95fe7348d56391eec57201425d (patch)
treea636944fc082b8ac7ba03bfeee5afcf2835b73b9 /perl-install/install_steps_gtk.pm
parent9e081044a54e5d34b23446c42cac89bcf1fa8fab (diff)
downloaddrakx-19f5efa2b0c3cc95fe7348d56391eec57201425d.tar
drakx-19f5efa2b0c3cc95fe7348d56391eec57201425d.tar.gz
drakx-19f5efa2b0c3cc95fe7348d56391eec57201425d.tar.bz2
drakx-19f5efa2b0c3cc95fe7348d56391eec57201425d.tar.xz
drakx-19f5efa2b0c3cc95fe7348d56391eec57201425d.zip
fix $check_complete use in gtk summary
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm5
1 files changed, 1 insertions, 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;