From d178def517a37f909a43e970fc8ae6cb10d3af05 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Fri, 4 Jun 2010 09:10:18 +0000 Subject: lookup major:minor of devices outside $::prefix --- perl-install/devices.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/devices.pm') diff --git a/perl-install/devices.pm b/perl-install/devices.pm index 3b2761ad0..719472cea 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -176,8 +176,8 @@ 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 "$::prefix/dev/$_") { - my (undef,undef,$mode,undef,undef,undef,$rdev,undef) = stat("$::prefix/dev/$_"); + if (-e "/dev/$_") { + my (undef,undef,$mode,undef,undef,undef,$rdev,undef) = stat("/dev/$_"); ($major, $minor) = unmakedev($rdev); $type = $mode & c::S_IFMT(); } -- cgit v1.2.1