From 11d68caab112f44448177ffda23a8a9a88b63505 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 13 Feb 2004 23:15:04 +0000
Subject: default to next/finish when no field is present

---
 perl-install/wizards.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm
index e875de052..86ebd95a5 100644
--- a/perl-install/wizards.pm
+++ b/perl-install/wizards.pm
@@ -164,7 +164,7 @@ sub process {
                                  if_($page->{interactive_help_id}, interactive_help_id => $page->{interactive_help_id}),
                                }, $data2);
         } else {
-            $a = $in->ask_okcancel($o->{name}, $name, $yes);
+            $a = $in->ask_okcancel($o->{name}, $name, $yes || 'ok');
         }
         # interactive->ask_yesorno does not support stepping forward or backward:
         $a = $yes if $a && $page->{type} eq "yesorno";
-- 
cgit v1.2.1