From 66a3628fe68440fc30f8aafb2ce51001cb8742a1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 30 Aug 2005 11:05:02 +0000 Subject: handle {message_text} not set but /boot/message-text existing --- perl-install/bootloader.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index e8f9db2e7..a2453cf90 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1180,7 +1180,10 @@ sub install_lilo { } if ($bootloader->{message_text}) { output("$::prefix/boot/message-text", $bootloader->{message_text}); - symlinkf "message-" . ($bootloader->{method} ne 'lilo-graphic' ? 'text' : 'graphic'), "$::prefix/boot/message"; + } + my $message = "message-" . ($bootloader->{method} ne 'lilo-graphic' ? 'text' : 'graphic'); + if (-r "$::prefix/boot/$message") { + symlinkf $message, "$::prefix/boot/message"; $bootloader->{message} = '/boot/message'; } -- cgit v1.2.1