From 7d79e26663b72c39887dbb3ab12bcf84ba283842 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 16 Sep 2008 16:48:06 +0000
Subject: - 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)

---
 perl-install/devices.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/devices.pm')

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};
-- 
cgit v1.2.1