From cf7189c512a48792ca16d69dcf15bc41b906554e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 1 Jul 2004 03:20:23 +0000
Subject: fix typo

---
 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 cdce73c7d..1eb0734dd 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -951,7 +951,7 @@ sub write_lilo {
     #- normalize: RESTRICTED is only valid if PASSWORD is set
     delete $bootloader->{restricted} if !$bootloader->{password};
 
-    if (!get_label('default', $bootloader)) {
+    if (!get_label($bootloader->{default}, $bootloader)) {
 	log::l("default bootloader entry $bootloader->{default} is invalid, choose another one");
 	$bootloader->{default} = $bootloader->{entries}[0]{label};
     }
-- 
cgit v1.2.1