From 54410dc53bd985c6a7a0eb4942004880eaed7c9d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 28 Aug 2002 19:50:35 +0000
Subject: - use $::prefix in any::get_secure_level() - fix
 any::get_secure_level() not using prefix when it should

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

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 8154b2f93..989fcba41 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -934,7 +934,7 @@ sub miscellaneousBefore {
 
     my %s = getVarsFromSh("$o->{prefix}/etc/sysconfig/system");
     $o->{miscellaneous}{HDPARM} = $s{HDPARM} if exists $s{HDPARM};
-    $o->{security} ||= any::get_secure_level($o->{prefix}) || ($o->{meta_class} =~ /server|firewall/ ? 3 : 2);
+    $o->{security} ||= any::get_secure_level() || ($o->{meta_class} =~ /server|firewall/ ? 3 : 2);
 
     log::l("security $o->{security}");
 
-- 
cgit v1.2.1