From 0846262df5150042d38accad44bb805cbc4945b6 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 15 Sep 2005 03:29:57 +0000
Subject: fallback to wpa_cli or iwlist/iwconfig when needed (#18516)

---
 perl-install/detect_devices.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 34bddb75d..5d00955d1 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -587,7 +587,7 @@ sub is_wireless_interface {
     #- i.e interfaces for which get_wireless_stats() is available
     c::isNetDeviceWirelessAware($interface) || -e "/sys/class/net/$interface/wireless";
 }
-sub has_wireless() { any { is_wireless_interface($_) } getNet() }
+sub get_wireless_interface() { find { is_wireless_interface($_) } getNet() }
 
 sub is_bridge_interface {
     my ($interface) = @_;
@@ -951,7 +951,7 @@ sub matching_type {
     if ($type =~ /laptop/i) {
         return isLaptop();
     } elsif ($type =~ /wireless/i) {
-        return has_wireless();
+        return to_bool(get_wireless_interface());
     }
 }
 
-- 
cgit v1.2.1