summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/bootloader.pm4
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}";