From 309ee2cb37a165f25b4a20b26e1d4ac2ffa840f9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 7 Sep 2001 11:39:35 +0000
Subject: (write_lilo_conf): fix typo

---
 perl-install/bootloader.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 0e2026076..72b53c18f 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -639,8 +639,8 @@ sub write_lilo_conf {
 	  open F, ">$prefix/boot/message" and print F $lilo->{message}; #- fallback in case of another lilo.
     }
     foreach ($lilo->{methods}{lilo}, "lilo-menu", "lilo-graphic", "lilo-text") {
-	if (-e "$prefix/boot/$lilo->{methods}{lilo}/boot.b" && -e "$prefix/boot/$lilo->{methods}{lilo}/message") {
-	    symlinkf $lilo->{methods}{lilo}, "$prefix/boot/lilo";
+	if (-e "$prefix/boot/$_/boot.b" && -e "$prefix/boot/$_/message") {
+	    symlinkf $_, "$prefix/boot/lilo";
 	    symlinkf "lilo/boot.b", "$prefix/boot/boot.b";
 	    symlinkf "lilo/message", "$prefix/boot/message";
 	    log::l("stage2 of lilo used is " . readlink "$prefix/boot/lilo");
-- 
cgit v1.2.1