diff options
| -rw-r--r-- | perl-install/authentication.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index ce9ac04d6..4420911d9 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -420,8 +420,7 @@ sub set_pam_authentication { } if ($module eq 'pam_unix' && $special{$type}) { my @para_for_last = - $type eq 'auth' ? qw(likeauth nullok use_first_pass) : - $type eq 'account' ? qw(use_first_pass) : @{[]}; + member($type, 'auth', 'account') ? qw(use_first_pass) : @{[]}; @para = difference2(\@para, \@para_for_last); my ($before_noask, $ask) = partition { $_ eq 'castella' } @{$special{$type}}; |