From 02881b57628d23d1f9e701e7f36a8a2bcbe95e30 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 19 Mar 2012 18:56:39 +0000
Subject: (read_pmon2000,read_uboot,read_cromwell) simplify

---
 perl-install/bootloader.pm | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 766cd2cf6..3b7a1d348 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -410,19 +410,13 @@ sub read_silo() {
     $bootloader;
 }
 sub read_pmon2000() {
-    my %b;
-    $b{method} = 'pmon2000';
-    \%b;
+    +{ method => 'pmon2000' };
 }
 sub read_uboot() {
-    my %b;
-    $b{method} = 'uboot';
-    \%b;
+    +{ method => 'uboot' };
 }
 sub read_cromwell() {
-    my %b;
-    $b{method} = 'cromwell';
-    \%b;
+    +{ method => 'cromwell' };
 }
 sub read_yaboot() { 
     my $bootloader = read_lilo_like("/etc/yaboot.conf", \&yaboot2file);
-- 
cgit v1.2.1