summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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");
}