From 75e5fed165948b5eecab56b0f4c7c630ffd924d8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 14 Sep 2004 08:04:00 +0000 Subject: (get_eth_cards_names) set a sensible name for firewire network adapters in order to make GUIes look more user friendly --- perl-install/network/ethernet.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 79003d8b3..fd1081849 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -80,7 +80,12 @@ sub get_eth_cards { sub get_eth_cards_names { my (@all_cards) = @_; - { map { $_->[0] => join(': ', $_->[0], $_->[2]) } @all_cards }; + { + map { + $_->[2] ||= "Firewire (IEE1394) Network Adapter" if $_->[1] eq 'ip1394'; + $_->[0] => join(': ', $_->[0], $_->[2]); + } @all_cards; + }; } #- returns (link_type, mac_address) -- cgit v1.2.1