summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 227c5604b..0c6a1292b 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -2451,6 +2451,10 @@ sub install_refind {
$bootloader->{esp_device} or die "ESP device is unknown";
push @options, '--usedefault';
push @options, $bootloader->{esp_device};
+ #- refind_install uses lower case file names. If a default bootloader was previously
+ #- created with an upper case file name, Linux won't overwrite it.
+ my $default_fn = "$::prefix/boot/EFI/EFI/BOOT/BOOT" . uc(uefi_type()) . ".EFI";
+ unlink($default_fn) if -e $default_fn;
} elsif ($bootloader->{install_mode} eq 'nvram_only') {
push @options, '--nvramonly';
}