From 8418efcc6c39e3c3de1297c9048f58342834247e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 14 Jan 2010 18:47:39 +0000
Subject: fix reading security level

---
 perl-install/NEWS                | 3 +++
 perl-install/standalone/drakboot | 4 +++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 96a63c506..799c2fecc 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- drakboot:
+  o fix reading security level
+
 Version 13.4 - 7 January 2009
 
 - installation mount points: reset unknown partitions types to default
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index b8352f19c..6177fd00c 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -59,7 +59,9 @@ if ($is_bootloader_mode || any { /^--splash$/ } @ARGV) {
 
 if ($is_bootloader_mode) {
     $::isWizard = 1;
-    eval { any::setupBootloaderUntilInstalled($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) };
+    require security::level;
+    my $level = security::level::from_string(security::level::get());
+    eval { any::setupBootloaderUntilInstalled($in, $bootloader, $all_hds, $fstab, $level) };
     die if $@ && $@ !~ /^wizcancel/;
     $in->exit(0);
 }
-- 
cgit v1.2.1