From 0f290b259328a6020285a4b4a5c9ca919daa0179 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 14 Oct 2015 04:51:13 -0400
Subject: fix detecting some devices as network

commit 5debe867e12c9b062ee15fe59f09e8a7b34627b2 landed in wrong place...
---
 perl-install/harddrake/data.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 50496da7f..30460dc94 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -385,7 +385,7 @@ our @tree =
       string => N("Bluetooth devices"),
       icon => "hw_network.png",
       configurator => "",
-      detector => sub { f(detect_devices::probe_category('bus/bluetooth')), f(grep { $_->{description} =~ /Bluetooth Dongle|WLAN/ } @devices) },
+      detector => sub { f(detect_devices::probe_category('bus/bluetooth')), f(grep { $_->{description} =~ /Bluetooth Dongle/ } @devices) },
       checked_on_boot => 1,
      },
 
@@ -400,7 +400,8 @@ our @tree =
           f(grep {
               $_->{media_type} && $_->{media_type} =~ /^NETWORK/
                 || $_->{type} && $_->{type} eq 'network'
-                  ||  member($_->{driver}, @net_modules);
+                  || member($_->{driver}, @net_modules)
+                    || $_->{description} =~ /WLAN/;
           } @devices);
       },
       checked_on_boot => 1,
-- 
cgit v1.2.1