From c3d3b30362c8499cf813dc47a2cdd029b11f5b60 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 10 Jun 2004 08:55:06 +0000 Subject: (get) default to standard level; else security::msec won't be able to load any values when level is not set (thus resulting in an empty draksec GUI) --- perl-install/security/level.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/security/level.pm b/perl-install/security/level.pm index 2c5d299f4..c6a260c74 100644 --- a/perl-install/security/level.pm +++ b/perl-install/security/level.pm @@ -26,7 +26,7 @@ sub get() { cat_("$::prefix/etc/profile") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.0 msec cat_("$::prefix/etc/profile.d/msec.sh") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.1 msec ${{ getVarsFromSh("$::prefix/etc/sysconfig/msec") }}{SECURE_LEVEL} || #- 8.2 msec - $ENV{SECURE_LEVEL}; + $ENV{SECURE_LEVEL} || 2; } sub set { -- cgit v1.2.1