From f073abf1f2cad14fd91497127309b4aeb5bf3c1b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 28 Oct 2009 16:06:48 +0000
Subject: split devices listing (needed for next commits)

---
 perl-install/standalone/service_harddrake | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index dd83e0cc8..acf3494a7 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -95,8 +95,11 @@ my @cards = (
     }
 );
 
+
+my @devices = grep { $_->{driver} =~ /^Card:/ } detect_devices::probeall();
+
 foreach my $card (@cards) {
-    my $device = find { $_->{driver} =~ /$card->{ldetect_driver_regexp}/ } detect_devices::probeall();
+    my $device = find { $_->{driver} =~ /$card->{ldetect_driver_regexp}/ } @devices;
     next if !$device;
 
     my $id = $device->{driver} =~ /Card:(.*)/ && $1;
-- 
cgit v1.2.1