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 | 1bf8b805a659f839a80558a679a4b13915d1f272 (patch) | |
| tree | 5d0a2a89e2ece552d317e10466316f8501e29ce8 /perl-install | |
| parent | 51e4d9626044db41f24f7e9377b9e78febbb1d29 (diff) | |
| download | drakx-backup-do-not-use-1bf8b805a659f839a80558a679a4b13915d1f272.tar drakx-backup-do-not-use-1bf8b805a659f839a80558a679a4b13915d1f272.tar.gz drakx-backup-do-not-use-1bf8b805a659f839a80558a679a4b13915d1f272.tar.bz2 drakx-backup-do-not-use-1bf8b805a659f839a80558a679a4b13915d1f272.tar.xz drakx-backup-do-not-use-1bf8b805a659f839a80558a679a4b13915d1f272.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); } } } |