summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-08-31 08:34:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-08-31 08:34:44 +0000
commita0fd2bd4dad740326a6a62ca0e8189d636d33dd6 (patch)
tree7f7f617102da8e72ecb2eb81146b35e587fee9a1 /perl-install
parent74b449954f7e11043b6c3edce7a240b5c60693f0 (diff)
downloaddrakx-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.pm6
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"),