diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 1613cd0..51ebb1f 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -161,8 +161,15 @@ sub add_boot_splash { sub update_splash { my ($bootloader) = @_; + my %real_initrd_entries; foreach (@{$bootloader->{entries}}) { - add_boot_splash($_->{initrd}, $_->{vga} || $bootloader->{vga}) if $_->{initrd}; + if ($_->{initrd}) { + my $initrd = expand_symlinks($_->{initrd}); + $real_initrd_entries{$initrd} = $_; + } + } + foreach (values %real_initrd_entries) { + add_boot_splash($_->{initrd}, $_->{vga} || $bootloader->{vga}); } }