summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-31 20:31:37 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-31 20:31:37 +0000
commit49c296107afd9cf7efb7388830d9c5785b96fd9f (patch)
tree28aa2af852c8f480128e165c14e4e7d2caa2ac66 /perl-install/detect_devices.pm
parentdef4efcd013dab2d39ca559f61df55ff60864157 (diff)
downloaddrakx-49c296107afd9cf7efb7388830d9c5785b96fd9f.tar
drakx-49c296107afd9cf7efb7388830d9c5785b96fd9f.tar.gz
drakx-49c296107afd9cf7efb7388830d9c5785b96fd9f.tar.bz2
drakx-49c296107afd9cf7efb7388830d9c5785b96fd9f.tar.xz
drakx-49c296107afd9cf7efb7388830d9c5785b96fd9f.zip
no_comment
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 19bae0339..23c58ba7d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -105,11 +105,12 @@ sub getCompaqSmartArray() {
my $f;
for (my $i = 0; -r ($f = "/proc/array/ida$i"); $i++) {
- local *F;
- open F, $f or die;
- local $_ = <F>;
- my ($name) = m|ida/(.*?):| or next;
- push @idi, { device => $name, info => "Compaq RAID logical disk", type => 'hd' };
+ foreach (cat_($f)) {
+ if (m|^(ida/.*?):|) {
+ push @idi, { device => $1, info => "Compaq RAID logical disk", type => 'hd' };
+ last;
+ }
+ }
}
@idi;
}