From 34eb1b8b9d424d72a737ba3c7bae0098b2415fd6 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 20 Jul 2004 15:28:58 +0000
Subject: fix perl_checker combo (yeah)

---
 perl-install/network/netconnect.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index b03ba580e..fc0b4aa19 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -131,7 +131,7 @@ sub real_main {
           %eth_intf = network::ethernet::get_eth_cards_names(@all_cards);
           require list_modules;
           %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) }
-            grep { $is_wireless ^ !c::isNetDeviceWirelessAware($_->[0])  } @all_cards;
+            grep { to_bool($is_wireless) == c::isNetDeviceWirelessAware($_->[0]) } @all_cards;
       };
 
       my $find_lan_module = sub { 
-- 
cgit v1.2.1