diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-07-13 06:32:09 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-07-13 06:32:09 +0000 |
| commit | 890c98037f7d83af681a70930499de0ded25be4c (patch) | |
| tree | 069c661fbd60fffd9a1e5e02d10ebeeb32f20a2c /perl-install | |
| parent | 82e1dea4c3c704bb0692a1cc24dad40a3a25ff38 (diff) | |
| download | drakx-backup-do-not-use-890c98037f7d83af681a70930499de0ded25be4c.tar drakx-backup-do-not-use-890c98037f7d83af681a70930499de0ded25be4c.tar.gz drakx-backup-do-not-use-890c98037f7d83af681a70930499de0ded25be4c.tar.bz2 drakx-backup-do-not-use-890c98037f7d83af681a70930499de0ded25be4c.tar.xz drakx-backup-do-not-use-890c98037f7d83af681a70930499de0ded25be4c.zip | |
add has_wireless
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 3 |
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(); } } |