diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-08-31 08:34:44 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-08-31 08:34:44 +0000 |
| commit | a0fd2bd4dad740326a6a62ca0e8189d636d33dd6 (patch) | |
| tree | 7f7f617102da8e72ecb2eb81146b35e587fee9a1 /perl-install | |
| parent | 74b449954f7e11043b6c3edce7a240b5c60693f0 (diff) | |
| download | drakx-a0fd2bd4dad740326a6a62ca0e8189d636d33dd6.tar drakx-a0fd2bd4dad740326a6a62ca0e8189d636d33dd6.tar.gz drakx-a0fd2bd4dad740326a6a62ca0e8189d636d33dd6.tar.bz2 drakx-a0fd2bd4dad740326a6a62ca0e8189d636d33dd6.tar.xz drakx-a0fd2bd4dad740326a6a62ca0e8189d636d33dd6.zip | |
simplify
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/authentication.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index e4dc90125..86fae207b 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -4,7 +4,7 @@ use common; sub kinds { my $no_para = @_ == 0; - my ($do_pkgs, $_meta_class) = @_; + my ($do_pkgs) = @_; my $allow_SmartCard = $no_para || $do_pkgs->is_available('castella-pam'); my $allow_AD = 1; ( @@ -172,10 +172,10 @@ The command 'wbinfo -t' will test whether your authentication secrets are good." } sub ask_root_password_and_authentication { - my ($in, $net, $superuser, $authentication, $meta_class, $security) = @_; + my ($in, $net, $superuser, $authentication, $_meta_class, $security) = @_; my $kind = to_kind($authentication); - my @kinds = kinds($in->do_pkgs, $meta_class); + my @kinds = kinds($in->do_pkgs); $in->ask_from_({ title => N("Authentication"), |