diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-12-07 11:34:54 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-12-07 11:34:54 +0000 |
| commit | 8872bb0056e12dbdeee8b406558c6e8e91117489 (patch) | |
| tree | 5d0a2a89e2ece552d317e10466316f8501e29ce8 /perl-install | |
| parent | 1e2c383108a6ab96a7f968e9b34f1d276e0fe340 (diff) | |
| download | drakx-8872bb0056e12dbdeee8b406558c6e8e91117489.tar drakx-8872bb0056e12dbdeee8b406558c6e8e91117489.tar.gz drakx-8872bb0056e12dbdeee8b406558c6e8e91117489.tar.bz2 drakx-8872bb0056e12dbdeee8b406558c6e8e91117489.tar.xz drakx-8872bb0056e12dbdeee8b406558c6e8e91117489.zip | |
extract hash into a variable (needed for next commit)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 13 |
1 files changed, 7 insertions, 6 deletions
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); } } } |