get major/minor of device mapper correctly now that they are links

1 files changed, 10 insertions, 0 deletions

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index a50d70953..719472cea 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -173,6 +173,16 @@ sub entry {
 	    }
 	}
     }
+    # Try to access directly the device
+    # Now device mapper devices are links and do not appear in /proc or /sys
+    unless ($type) {
+	if (-e "/dev/$_") {
+	    my (undef,undef,$mode,undef,undef,undef,$rdev,undef) = stat("/dev/$_");
+	    ($major, $minor) = unmakedev($rdev);
+	    $type = $mode & c::S_IFMT();
+	}
+    }
+
     $type or internal_error("unknown device $_");
     ($type, $major, $minor);
 }