diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-31 20:31:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-31 20:31:37 +0000 |
| commit | 49c296107afd9cf7efb7388830d9c5785b96fd9f (patch) | |
| tree | 28aa2af852c8f480128e165c14e4e7d2caa2ac66 /perl-install/detect_devices.pm | |
| parent | def4efcd013dab2d39ca559f61df55ff60864157 (diff) | |
| download | drakx-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.pm | 11 |
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; } |