summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index b1f2ef632..ecdc9f2f1 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1044,6 +1044,9 @@ sub write_lilo {
#- normalize: RESTRICTED is only valid if PASSWORD is set
delete $bootloader->{restricted} if !$bootloader->{password};
+ foreach my $entry (@{$bootloader->{entries}}) {
+ delete $entry->{restricted} if !$entry->{password} && !$bootloader->{password};
+ }
if (!get_label($bootloader->{default}, $bootloader)) {
log::l("default bootloader entry $bootloader->{default} is invalid, choose another one");
@@ -1097,6 +1100,9 @@ sub write_lilo {
push @entry_conf, map_each { "map-drive=$::a", " to=$::b" } %{$entry->{mapdrive}};
}
}
+ push @entry_conf, "password=$entry->{password}" if $entry->{password};
+ push @entry_conf, "restricted" if $entry->{restricted};
+
push @conf, map { "\t$_" } @entry_conf;
}
my $f = arch() =~ /ia64/ ? "$::prefix/boot/efi/elilo.conf" : "$::prefix/etc/lilo.conf";