From 8d30193f135798d13fa02c608247d3d2d1b8071b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 15 Mar 2004 13:18:08 +0000 Subject: do not list anymore wireless cards in LAN connection, only in wireless connections --- perl-install/network/netconnect.pm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 0d9e78340..aa4707abb 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -141,13 +141,9 @@ sub real_main { modules::interactive::load_category($in, 'network/main|gigabit|pcmcia|usb|wireless', !$::expert, 0); @all_cards = network::ethernet::get_eth_cards(); %eth_intf = network::ethernet::get_eth_cards_names(@all_cards); - if ($is_wireless) { - require list_modules; - my @wmodules = list_modules::category2modules('network/wireless'); - %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) } grep { member($_->[1], @wmodules) } @all_cards; - } else { - %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) } @all_cards; - } + require list_modules; + my @wmodules = list_modules::category2modules('network/wireless'); + %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) } grep { !$is_wireless ^ member($_->[1], @wmodules) } @all_cards; }; my $find_lan_module = sub { -- cgit v1.2.1