From 9bfa215b7dca77d9f7dee8997072ffff0617316a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 2 Feb 2004 11:07:10 +0000
Subject: (get_eth_cards) handle not loaded drivers

---
 perl-install/network/ethernet.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 28a0fe99e..58756c1d6 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -59,7 +59,8 @@ sub get_eth_cards() {
         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, (mapIntfToDevice($interface))[0]->{description} ]
+        my ($device) = mapIntfToDevice($interface);
+        [ $interface, $saved_driver, if_($device, $device->{description}) ]
     } @all_cards;
 }
 
-- 
cgit v1.2.1