From 98899f018f7e6394dd0648bed57c2f8bd49cd6e5 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 21 Mar 2005 17:26:25 +0000
Subject: handle wireless hardware type

---
 perl-install/detect_devices.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 94a092824..3bbcfc8a3 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -870,7 +870,11 @@ sub has_cpu_flag {
 
 sub matching_type {
     my ($type) = @_;
-    $type =~ /laptop/i && isLaptop();
+    if ($type =~ /laptop/i) {
+        return isLaptop();
+    } elsif ($type =~ /wireless/i) {
+        return any { c::isNetDeviceWirelessAware($_) } getNet();
+    }
 }
 
 sub usbMice()      { grep { $_->{media_type} =~ /\|Mouse/ && $_->{driver} !~ /wacom/ ||
-- 
cgit v1.2.1