diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-16 16:33:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-16 16:33:17 +0000 |
| commit | adbcd42fe7f2cbd460fb41690437e161e00109eb (patch) | |
| tree | e039a236dc841ce1ff244dca5fc3a70e462ca03c | |
| parent | 901ba75db55375e3c873eb96cb4c0fee54c8ff12 (diff) | |
| download | drakx-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
| -rw-r--r-- | perl-install/authentication.pm | 2 |
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 { |