summaryrefslogtreecommitdiffstats
path: root/zarb-ml/mageia-dev/attachments/20120405/9fb53a02/attachment.obj
blob: c9bb54c4b334092d11f3724ebcd3afb26bf5119c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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});
     }
 }