From 9c54be7d583ad68041f25c3ccb0502b011a0e0ff Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 27 Aug 2004 08:12:32 +0000
Subject: (matching_driver) introduce it in order to factorize some tests

---
 perl-install/detect_devices.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'perl-install/detect_devices.pm')

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", 
-- 
cgit v1.2.1