From 063be9b8241e6f4707cd557ab0f40aa068f21a4d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 6 Feb 2004 14:29:11 +0000
Subject: following quintela's lilo change, allowing lilo labels up to 31
 characters

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/bootloader.pm')

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