From adbcd42fe7f2cbd460fb41690437e161e00109eb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 16 Feb 2004 16:33:17 +0000
Subject: (to_kind) try harder to find out if some auth method already had been
 choosed

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

(limited to 'perl-install')

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 {
-- 
cgit v1.2.1