(matching_driver) introduce it in order to factorize some tests

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",