From a4a52e9642c2fc5c2349de0b43cab3c6ba7385ef Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 19 Mar 2004 09:06:44 +0000
Subject: adapt to devfs (?) naming which breaks compatibility (bugzilla #9029)

---
 perl-install/detect_devices.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 2ab37b790..cc13ab7fb 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -310,8 +310,9 @@ sub getCompaqSmartArray() {
 	my ($name) = m|/(.*)|;
 	for (my $i = 0; -r ($f = "${prefix}$i"); $i++) {
 	    foreach (cat_($f)) {
-		if (my ($device) = m|^\s*($name/.*?):|) {
-		    push @idi, { device => $device, prefix => $device . 'p', info => "Compaq RAID logical disk",
+                if (my ($raw_device) = m|^\s*($name/.*?):|) {
+                    my $device = -d "/dev/$raw_device" ? "$raw_device/disc" : $raw_device;
+                    push @idi, { device => $device, prefix => $raw_device . 'p', info => "Compaq RAID logical disk",
 				 media_type => 'hd', bus => 'ida' };
 		}
 	    }
-- 
cgit v1.2.1