diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-19 18:56:39 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-19 18:56:39 +0000 |
commit | b388dae480a4d662e28a98e9b2cb0e6587884d04 (patch) | |
tree | e21bfc7b21fea0d18843d9f42990eae7159b5383 /perl-install | |
parent | 05a67b6aaaeb2d9bbc2ff084c3b03a6e274eb5a8 (diff) | |
download | drakx-backup-do-not-use-b388dae480a4d662e28a98e9b2cb0e6587884d04.tar drakx-backup-do-not-use-b388dae480a4d662e28a98e9b2cb0e6587884d04.tar.gz drakx-backup-do-not-use-b388dae480a4d662e28a98e9b2cb0e6587884d04.tar.bz2 drakx-backup-do-not-use-b388dae480a4d662e28a98e9b2cb0e6587884d04.tar.xz drakx-backup-do-not-use-b388dae480a4d662e28a98e9b2cb0e6587884d04.zip |
(read_pmon2000,read_uboot,read_cromwell) simplify
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/bootloader.pm | 12 |
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); |