From 8872bb0056e12dbdeee8b406558c6e8e91117489 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 7 Dec 2012 11:34:54 +0000
Subject: extract hash into a variable (needed for next commit)

---
 perl-install/bootloader.pm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 60972d42a..8c615da26 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1129,12 +1129,13 @@ sub suggest {
 
     if (main_method($bootloader->{method}) eq 'grub') {
 	foreach my $c (find_other_distros_grub_conf($fstab)) {	    
-	    add_entry($bootloader, { 
-		type => 'grub_configfile',
-		label => $c->{name},
-		kernel_or_dev => "/dev/$c->{bootpart}{device}",
-		configfile => $c->{grub_conf},
-	    });
+	    my %h = (
+		     type => 'grub_configfile',
+		     label => $c->{name},
+		     kernel_or_dev => "/dev/$c->{bootpart}{device}",
+		     configfile => $c->{grub_conf},
+		    );
+	    add_entry($bootloader, \%h);
 	}
     }
 }
-- 
cgit v1.2.1