summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-13 06:32:09 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-13 06:32:09 +0000
commit890c98037f7d83af681a70930499de0ded25be4c (patch)
tree069c661fbd60fffd9a1e5e02d10ebeeb32f20a2c /perl-install
parent82e1dea4c3c704bb0692a1cc24dad40a3a25ff38 (diff)
downloaddrakx-890c98037f7d83af681a70930499de0ded25be4c.tar
drakx-890c98037f7d83af681a70930499de0ded25be4c.tar.gz
drakx-890c98037f7d83af681a70930499de0ded25be4c.tar.bz2
drakx-890c98037f7d83af681a70930499de0ded25be4c.tar.xz
drakx-890c98037f7d83af681a70930499de0ded25be4c.zip
add has_wireless
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index b84d940af..eeec05624 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -582,6 +582,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 is_bridge_interface {
my ($interface) = @_;
@@ -916,7 +917,7 @@ sub matching_type {
if ($type =~ /laptop/i) {
return isLaptop();
} elsif ($type =~ /wireless/i) {
- return any { is_wireless_interface($_) } getNet();
+ return has_wireless();
}
}