summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-19 18:56:39 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-19 18:56:39 +0000
commit02881b57628d23d1f9e701e7f36a8a2bcbe95e30 (patch)
treee21bfc7b21fea0d18843d9f42990eae7159b5383 /perl-install
parent6eea01b8b858544ccb23eae53af78c53412c387c (diff)
downloaddrakx-02881b57628d23d1f9e701e7f36a8a2bcbe95e30.tar
drakx-02881b57628d23d1f9e701e7f36a8a2bcbe95e30.tar.gz
drakx-02881b57628d23d1f9e701e7f36a8a2bcbe95e30.tar.bz2
drakx-02881b57628d23d1f9e701e7f36a8a2bcbe95e30.tar.xz
drakx-02881b57628d23d1f9e701e7f36a8a2bcbe95e30.zip
(read_pmon2000,read_uboot,read_cromwell) simplify
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm12
1 files changed, 3 insertions, 9 deletions
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);