summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm18
1 files changed, 9 insertions, 9 deletions
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' };
+ }
}
}
}