From 02c6d2c973025fc1b60e5daaf0afee57029add9f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 21 Mar 2001 18:47:06 +0000
Subject: (install_lilo): ensure labels don't contain spaces, lilo doesn't like
 them

---
 perl-install/bootloader.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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}";
-- 
cgit v1.2.1