diff options
Diffstat (limited to 'perl-install/bootloader.pm')
| -rw-r--r-- | perl-install/bootloader.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 947ef4f77..fd2f85169 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -645,7 +645,7 @@ sub read_refind() { my %bootloader = (entries => []); foreach (cat_utf8("$::prefix/boot/refind_linux.conf")) { next if /^#/; - my ($label, $append) = /"(.*)"\s"(.*)"/; + my ($label, $append) = /"(.*)"\s*"(.*)"/; my $root = $1 if $append =~ s/root=(\S*)\s*//; my $vga = $1 if $append =~ s/vga=(\S*)\s*//; if ($label && $root) { @@ -2341,7 +2341,7 @@ sub write_refind { if_($entry->{'read-write'}, 'rw'), if_($vga && $vga ne "normal", "vga=$vga") ); - push @config, '"' . simplify_label($entry->{label}) . '" "' . $boot_params . '"'; + push @config, '"' . $entry->{label} . '" "' . $boot_params . '"'; } } if (@config) { |