summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-09-15 03:29:57 +0000
committerOlivier Blin <oblin@mandriva.org>2005-09-15 03:29:57 +0000
commit0846262df5150042d38accad44bb805cbc4945b6 (patch)
treed056db51f2224abcefe5f4732dfedbdcbb7028ee /perl-install/detect_devices.pm
parentffff9155cd2053d7ec926cc884c413ff6fe7ee5e (diff)
downloaddrakx-0846262df5150042d38accad44bb805cbc4945b6.tar
drakx-0846262df5150042d38accad44bb805cbc4945b6.tar.gz
drakx-0846262df5150042d38accad44bb805cbc4945b6.tar.bz2
drakx-0846262df5150042d38accad44bb805cbc4945b6.tar.xz
drakx-0846262df5150042d38accad44bb805cbc4945b6.zip
fallback to wpa_cli or iwlist/iwconfig when needed (#18516)
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm4
1 files changed, 2 insertions, 2 deletions
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());
}
}