From 6ce2cb8cda3da844bbda10c6760b33de3e5e2bd2 Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Tue, 15 May 2012 17:54:13 +0000
Subject: don't update UsePAM option in sshd configuration

---
 perl-install/authentication.pm | 13 -------------
 1 file changed, 13 deletions(-)

(limited to 'perl-install/authentication.pm')

diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index c0b2dc215..02a88737c 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -325,7 +325,6 @@ sub set_raw {
 
     my $pam_modules = $kind2pam_kind{$kind} or log::l("kind2pam_kind does not know $kind");
     $pam_modules ||= [];
-    sshd_config_UsePAM(@$pam_modules > 0);
     set_pam_authentication($pam_modules, $authentication->{ccreds});
 
     my $nsswitch = $kind2nsswitch{$kind} or log::l("kind2nsswitch does not know $kind");
@@ -781,18 +780,6 @@ sub krb5_conf_update {
 
 }
 
-sub sshd_config_UsePAM {
-    my ($UsePAM) = @_;
-    my $sshd = "$::prefix/etc/ssh/sshd_config";
-    -e $sshd or return;
-
-    my $val = "UsePAM " . bool2yesno($UsePAM);
-    substInFile {
-	$val = '' if s/^#?UsePAM.*/$val/;
-	$_ .= "$val\n" if eof && $val;
-    } $sshd;
-}
-
 sub query_srv_names {
     my ($domain) = @_;
 
-- 
cgit v1.2.1