summaryrefslogtreecommitdiffstats
path: root/perl-install/authentication.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-16 16:33:17 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-16 16:33:17 +0000
commitadbcd42fe7f2cbd460fb41690437e161e00109eb (patch)
treee039a236dc841ce1ff244dca5fc3a70e462ca03c /perl-install/authentication.pm
parent901ba75db55375e3c873eb96cb4c0fee54c8ff12 (diff)
downloaddrakx-adbcd42fe7f2cbd460fb41690437e161e00109eb.tar
drakx-adbcd42fe7f2cbd460fb41690437e161e00109eb.tar.gz
drakx-adbcd42fe7f2cbd460fb41690437e161e00109eb.tar.bz2
drakx-adbcd42fe7f2cbd460fb41690437e161e00109eb.tar.xz
drakx-adbcd42fe7f2cbd460fb41690437e161e00109eb.zip
(to_kind) try harder to find out if some auth method already had been choosed
Diffstat (limited to 'perl-install/authentication.pm')
-rw-r--r--perl-install/authentication.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index df9eeb2d4..f69be8833 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -13,7 +13,7 @@ sub kind2description {
}
sub to_kind {
my ($authentication) = @_;
- (find { $authentication->{$_} } kinds()) || 'local';
+ (find { defined $authentication->{$_} } kinds()) || 'local';
}
sub ask_parameters {