summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e0750031a..bf9dbbafd 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1096,7 +1096,7 @@ sub setRootPassword {
_("Authentication LDAP"),
[ { label => _("LDAP Base dn"), val => \$o->{netc}{LDAPDOMAIN} },
{ label => _("LDAP Server"), val => \$o->{authentication}{LDAP} },
- ]);
+ ]) or goto &setRootPassword;
} else { $o->{authentication}{LDAP} = '' }
if ($auth eq __("NIS")) {
$o->{authentication}{NIS} ||= 'broadcast';
@@ -1104,7 +1104,7 @@ sub setRootPassword {
_("Authentication NIS"),
[ { label => _("NIS Domain"), val => \ ($o->{netc}{NISDOMAIN} ||= $o->{netc}{DOMAINNAME}) },
{ label => _("NIS Server"), val => \$o->{authentication}{NIS}, list => ["broadcast"], not_edit => 0 },
- ]);
+ ]) or goto &setRootPassword;
} else { $o->{authentication}{NIS} = '' }
install_steps::setRootPassword($o);
}