From 0348ae59b9f8606a0443d38a14c36090da7beb46 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 16 Jul 2003 09:36:54 +0000
Subject: perl_checker fix

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

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 7454caf8e..e26135772 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -119,7 +119,7 @@ sub read_grub {
         $b{boot} = grub2dev($1) if /\s*d\s* (\(.*?\))\s*/;
     }
 
-    $b{default} = $b{entries}[$b{default}]->{label};
+    $b{default} = $b{entries}[$b{default}]{label};
 
     \%b;
 }
-- 
cgit v1.2.1