summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-30 07:54:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-30 07:54:45 +0000
commitf09bb9ea9931ea845bf4e3e509442eca66573842 (patch)
treeebce6d377a9b54cf890b31fa86462ca2c883249d
parent943fa08473221ab750a2596e0b4629603d85bd3e (diff)
downloaddrakx-backup-do-not-use-f09bb9ea9931ea845bf4e3e509442eca66573842.tar
drakx-backup-do-not-use-f09bb9ea9931ea845bf4e3e509442eca66573842.tar.gz
drakx-backup-do-not-use-f09bb9ea9931ea845bf4e3e509442eca66573842.tar.bz2
drakx-backup-do-not-use-f09bb9ea9931ea845bf4e3e509442eca66573842.tar.xz
drakx-backup-do-not-use-f09bb9ea9931ea845bf4e3e509442eca66573842.zip
kinds() must return all kinds
-rw-r--r--perl-install/authentication.pm3
1 files changed, 2 insertions, 1 deletions
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'));
}