From 49c296107afd9cf7efb7388830d9c5785b96fd9f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 31 Aug 1999 20:31:37 +0000
Subject: no_comment

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

(limited to 'perl-install/detect_devices.pm')

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;
 }
-- 
cgit v1.2.1