diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 3267be9d9..42c1c7726 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1857,12 +1857,13 @@ sub find_other_distros_grub_conf { if ($ok) { add2hash($e, $root); undef $root; - push @found, $e; } elsif ($root) { - log::l("weird case, skipping grub conf from $e->{bootpart}{device}, keeping '/' from $root->{part}{device}"); + log::l("weird case for grub conf in $e->{bootpart}{device}, keeping '/' from $root->{part}{device}"); } else { log::l("could not recognise the distribution for $e->{grub_conf} in $e->{bootpart}{device}"); } + $e->{name} ||= "Linux $e->{bootpart}{device}"; + push @found, $e; } } $set_root->(undef); |