summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rwxr-xr-xperl-install/standalone/drakboot4
2 files changed, 6 insertions, 1 deletions
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);
}