diff options
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 5 |
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; |