From 221e7944db551edf85e0c0ff6062155b643a6d23 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 2 Mar 2001 18:11:24 +0000 Subject: (getCompaqSmartArray): adapt for cciss --- perl-install/detect_devices.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'perl-install') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 238e65893..d360c55cc 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -126,17 +126,17 @@ sub getIDE() { sub getCompaqSmartArray() { my @idi; - my $f; - my $dir = "/proc/driver/array"; #- kernel 2.4 places it here - $dir = "/proc/array" if !-d $dir; #- kernel 2.2 + foreach ('array/ida', 'cciss/cciss') { + my $prefix = "/proc/driver/$_"; #- kernel 2.4 places it here + $prefix = "/proc/$_" if !-e "${prefix}0"; #- kernel 2.2 - -e "$dir/ida0" or return; - - for (my $i = 0; -r ($f = "$dir/ida$i"); $i++) { - foreach (cat_($f)) { - if (m|^\s*(ida/.*?):|) { - push @idi, { device => $1, info => "Compaq RAID logical disk", type => 'hd' }; + my ($name) = m|/(.*)|; + for (my $i = 0; -r ($f = "${prefix}$i"); $i++) { + foreach (cat_($f)) { + if (m|^\s*($name/.*?):|) { + push @idi, { device => $1, info => "Compaq RAID logical disk", type => 'hd' }; + } } } } -- cgit v1.2.1