diff options
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 4 |
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); } |