From e4adc2b4073e3b0006f7950096bbb755efc1d412 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 15 Mar 2004 14:50:09 +0000 Subject: perl_checker fix --- perl-install/network/netconnect.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 6063db821..e2634dcbc 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -143,7 +143,7 @@ sub real_main { %eth_intf = network::ethernet::get_eth_cards_names(@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; + %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) } grep { int(!$is_wireless) ^ member($_->[1], @wmodules) } @all_cards; }; my $find_lan_module = sub { -- cgit v1.2.1