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/NEWS | 4 ++++ perl-install/devices.pm | 4 ++-- perl-install/install/NEWS | 4 ++++ 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index 3122cbc48..2c6a9e21f 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,7 @@ +- lookup major:minor of devices outside $::prefix +- display lock icon for not enabled dmcrypt too +- disable dmcrypt before deleting partition, evin if inside lvm/raid + Version 13.32 - 2 June 2010 - don't lose mountpoint if suggested partition was swap (#59510) 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(); } diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 74b652fdb..5c736fea1 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,7 @@ +- lookup major:minor of devices outside $::prefix +- display lock icon for not enabled dmcrypt too +- disable dmcrypt before deleting partition, evin if inside lvm/raid + Version 13.32 - 2 June 2010 - copy all devices to target -- cgit v1.2.1