diff options
| -rw-r--r-- | perl-install/bootloader.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 32ee2b86d..6483c7958 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -612,7 +612,9 @@ sub install_lilo($$) { foreach (@{$lilo->{entries}}) { print F "$_->{type}=$_->{kernel_or_dev}"; - print F "\tlabel=", substr($_->{label}, 0, 15); #- lilo doesn't handle more than 15 char long labels + 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"; if ($_->{type} eq "image") { print F "\troot=$_->{root}"; |