- bootloader-config:

  o fix reading existing grub conf in present of /dev/mapper/xxxx0p1
    partitions (which was causing bootloader-config to drop correct entries,
    cf #37722)

1 files changed, 5 insertions, 0 deletions

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 197127cd0..9ee3d6ac5 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -203,6 +203,11 @@ sub part_prefix {
     (simple_partition_scan($part))[0];
 }
 
+sub prefix_for_dev {
+    my ($dev) = @_;
+    $dev . ($dev =~ /\d$/ ? 'p' : '');
+}
+
 sub symlink_now_and_register {
     my ($if_struct, $of) = @_;
     my $if = $if_struct->{device};