summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-28 19:50:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-28 19:50:35 +0000
commit54410dc53bd985c6a7a0eb4942004880eaed7c9d (patch)
tree5d824b28ee2f4e03c2c5d41fef1b5e2cc536f501 /perl-install/any.pm
parente94ae685f0dea15ec01eabfb18e671eb1a4ecb9e (diff)
downloaddrakx-54410dc53bd985c6a7a0eb4942004880eaed7c9d.tar
drakx-54410dc53bd985c6a7a0eb4942004880eaed7c9d.tar.gz
drakx-54410dc53bd985c6a7a0eb4942004880eaed7c9d.tar.bz2
drakx-54410dc53bd985c6a7a0eb4942004880eaed7c9d.tar.xz
drakx-54410dc53bd985c6a7a0eb4942004880eaed7c9d.zip
- use $::prefix in any::get_secure_level()
- fix any::get_secure_level() not using prefix when it should
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm8
1 files changed, 3 insertions, 5 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 4e27cbaa4..cba30c7ee 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1128,11 +1128,9 @@ sub ask_window_manager_to_logout {
}
sub get_secure_level {
- my ($prefix) = @_;
-
- cat_("/etc/profile") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.0 msec
- cat_("/etc/profile.d/msec.sh") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.1 msec
- ${{ getVarsFromSh("$prefix/etc/sysconfig/msec") }}{SECURE_LEVEL} || #- 8.2 msec
+ 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};
}