summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm10
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index b9416d084..bec2de7a4 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -464,7 +464,7 @@ sub getSerialModem {
sub getModem {
my ($modules_conf) = @_;
getSerialModem($modules_conf, {}), matching_driver__regexp('www\.linmodems\.org'),
- grep { member($_->{driver}, qw(snd-atiixp-modem snd-intel8x0m)) } probeall();
+ matching_driver(qw(snd-atiixp-modem snd-intel8x0m));
}
sub getSpeedtouch() {
@@ -476,7 +476,7 @@ sub getBewan() {
}
sub getSagem() {
- grep { member($_->{driver}, qw(adiusbadsl eagle-usb)) } probeall();
+ matching_driver(qw(adiusbadsl eagle-usb));
}
# generate from the following from eci driver sources:
@@ -693,6 +693,12 @@ sub matching_driver__regexp {
my ($regexp) = @_;
grep { $_->{driver} =~ /$regexp/i } probeall();
}
+
+sub matching_driver {
+ my (@list) = @_;
+ grep { member($_->{driver}, @list) } probeall();
+}
+
sub stringlist() {
map {
sprintf("%-16s: %s%s%s",