summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-22 22:08:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-22 22:08:51 +0000
commit4215d770341c72ec139ed5d5332d7406c08cde16 (patch)
tree4b0ef0f2e93bb54621ce838d96e21e9dcb41cb64 /perl-install/bootloader.pm
parent06cb710b40d30e74adc8a88e4ba335f8ddbd7d39 (diff)
downloaddrakx-4215d770341c72ec139ed5d5332d7406c08cde16.tar
drakx-4215d770341c72ec139ed5d5332d7406c08cde16.tar.gz
drakx-4215d770341c72ec139ed5d5332d7406c08cde16.tar.bz2
drakx-4215d770341c72ec139ed5d5332d7406c08cde16.tar.xz
drakx-4215d770341c72ec139ed5d5332d7406c08cde16.zip
- fix default not being formatted like labels for lilo
- check the label is not already used *case-sensitively* - check a kernel_or_dev is given
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm12
1 files changed, 9 insertions, 3 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 5aff81522..366223713 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -632,6 +632,13 @@ sub install_silo($$$) {
c::setPromVars($silo->{bootalias}, $silo->{bootdev});
}
+sub make_label_lilo_compatible {
+ my ($label) = @_;
+ $label = substr($label, 0, 15); #- lilo doesn't handle more than 15 char long labels
+ $label =~ s/\s/_/g; #- lilo doesn't like spaces
+ $label;
+}
+
sub write_lilo_conf {
my ($prefix, $lilo, $fstab, $hds) = @_;
$lilo->{prompt} = $lilo->{timeout};
@@ -678,6 +685,7 @@ sub write_lilo_conf {
open F, ">$f" or die "cannot create lilo config file: $f";
log::l("writing lilo config to $f");
+ local $lilo->{default} = make_label_lilo_compatible($lilo->{default});
$lilo->{$_} and print F "$_=$lilo->{$_}" foreach qw(boot map install vga default append keytable);
$lilo->{$_} and print F $_ foreach qw(linear lba32 compact prompt restricted);
print F "password=", $lilo->{password} if $lilo->{restricted} && $lilo->{password}; #- also done by msec
@@ -699,9 +707,7 @@ sub write_lilo_conf {
foreach (@{$lilo->{entries}}) {
print F "$_->{type}=", $file2fullname->($_->{kernel_or_dev});
- my $label = substr($_->{label}, 0, 15); #- lilo doesn't handle more than 15 char long labels
- $label =~ s/\s/_/g; #- lilo doesn't like spaces
- print F "\tlabel=$label";
+ print F "\tlabel=", make_label_lilo_compatible($_->{label});
if ($_->{type} eq "image") {
print F "\troot=$_->{root}";