summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-06 14:29:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-06 14:29:11 +0000
commit063be9b8241e6f4707cd557ab0f40aa068f21a4d (patch)
treec1ce10346836d9ffaaf5164f63bf6c11bf7b6238 /perl-install
parent854ecdeb3915800d6cd8f4a3084e7a50b1bc8b73 (diff)
downloaddrakx-063be9b8241e6f4707cd557ab0f40aa068f21a4d.tar
drakx-063be9b8241e6f4707cd557ab0f40aa068f21a4d.tar.gz
drakx-063be9b8241e6f4707cd557ab0f40aa068f21a4d.tar.bz2
drakx-063be9b8241e6f4707cd557ab0f40aa068f21a4d.tar.xz
drakx-063be9b8241e6f4707cd557ab0f40aa068f21a4d.zip
following quintela's lilo change, allowing lilo labels up to 31 characters
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index af23e2de3..d1e706d70 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -889,7 +889,7 @@ sub install_silo {
sub make_label_lilo_compatible {
my ($label) = @_;
- $label = substr($label, 0, 15); #- lilo doesn't handle more than 15 char long labels
+ $label = substr($label, 0, 31); #- lilo doesn't handle more than 31 char long labels
$label =~ s/ /_/g; #- lilo does not support blank character in image names, labels or aliases
qq("$label");
}