From f09bb9ea9931ea845bf4e3e509442eca66573842 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Sep 2004 07:54:45 +0000
Subject: kinds() must return all kinds

---
 perl-install/authentication.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 2a647ce37..783fadac7 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -4,8 +4,9 @@ use common;
 use any;
 
 sub kinds { 
+    my $no_para = @_ == 0;
     my ($meta_class) = @_;
-    my $allow_AD = $meta_class =~ /corporate/;
+    my $allow_AD = $no_para || $meta_class =~ /corporate/;
     ('local', 'LDAP', 'NIS', 'winbind', if_($allow_AD, 'AD', 'SMBKRB'));
 }
 
-- 
cgit v1.2.1