From e66aac574917097a1294e28f1e5aa8b18beaab19 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 6 Nov 2003 14:20:51 +0000
Subject: simplify pcmcia matching

---
 perl-install/network/ethernet.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index a28f867dc..0327a6136 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -116,11 +116,8 @@ sub conf_network_card_backend {
 	return map {
 	    my $interface = $_;
 	    my $a = modules::get_alias($interface);
-	    my $b;
-	    foreach (@devs) {
-		$_->{device} eq $interface and $b = $_->{driver};
-	    }
-	    $a ||= $b;
+	    my $b = find { $_->{device} eq $interface } @devs;
+	    $a ||= $b->{driver};
 	    $a and $saved_driver = $a; # handle multiple cards managed by the same driver
  	    [ $interface, $saved_driver ]
 	} @all_cards;
-- 
cgit v1.2.1