summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-21 18:47:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-21 18:47:06 +0000
commit02c6d2c973025fc1b60e5daaf0afee57029add9f (patch)
tree80545ed4f1101673620d3e4467ec1cde6604a53e /perl-install
parent841e3d34a601bb0bef26a57668533bc38ac92a04 (diff)
downloaddrakx-02c6d2c973025fc1b60e5daaf0afee57029add9f.tar
drakx-02c6d2c973025fc1b60e5daaf0afee57029add9f.tar.gz
drakx-02c6d2c973025fc1b60e5daaf0afee57029add9f.tar.bz2
drakx-02c6d2c973025fc1b60e5daaf0afee57029add9f.tar.xz
drakx-02c6d2c973025fc1b60e5daaf0afee57029add9f.zip
(install_lilo): ensure labels don't contain spaces, lilo doesn't like them
Diffstat (limited to 'perl-install')
-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}";