diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-21 18:47:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-21 18:47:06 +0000 |
| commit | 02c6d2c973025fc1b60e5daaf0afee57029add9f (patch) | |
| tree | 80545ed4f1101673620d3e4467ec1cde6604a53e /perl-install | |
| parent | 841e3d34a601bb0bef26a57668533bc38ac92a04 (diff) | |
| download | drakx-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.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}"; |