From 1237406e5ee90da9dbdfec9fce21d603f75c80a6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 4 Oct 2000 00:30:29 +0000
Subject: no_comment

---
 perl-install/Xconfigurator.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 1e515ac05..f594969f1 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -1131,7 +1131,7 @@ sub autologin {
 	my %l; @l{@etc_pass_fields} = split ':';
 	$l{uid} > 500, $l{name};
     } cat_("$prefix/etc/passwd");
-    unless (($::auto && $o->{skiptest}) || !@users || $o->{authentication}{NIS}) {
+    unless (($::auto && $o->{skiptest}) || !@users || $o->{authentication}{NIS} || $ENV{SECURE_LEVEL} > 3) {
 	my $cmd = $prefix ? "chroot $prefix" : "";
 	my @wm = (split (' ', `$cmd /usr/sbin/chksession -l`));
 	my %l = getVarsFromSh("$prefix/etc/sysconfig/autologin");
-- 
cgit v1.2.1