From a0fd2bd4dad740326a6a62ca0e8189d636d33dd6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 31 Aug 2007 08:34:44 +0000 Subject: simplify --- perl-install/authentication.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/authentication.pm') 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"), -- cgit v1.2.1