From 8bbfff60b0abe467f5ec1e95facdfbfd86e1c9c4 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 13 Jan 2004 12:41:52 +0000
Subject: detect_devices::matching_driver -> matching_desc but matching driver
 names (kernel modules)

---
 perl-install/detect_devices.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 1246fbdb3..47f3f91e0 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -412,7 +412,7 @@ sub getSerialModem {
 }
 
 sub getModem() {
-    my @pci_modems = grep { $_->{driver} =~ /www.linmodems.org/ } probeall();
+    my @pci_modems = matching_driver('www\.linmodems\.org');
     getSerialModem({}), @pci_modems;
 }
 
@@ -574,6 +574,10 @@ sub matching_desc {
     my ($regexp) = @_;
     grep { $_->{description} =~ /$regexp/i } probeall();
 }
+sub matching_driver {
+    my ($regexp) = @_;
+    grep { $_->{driver} =~ /$regexp/i } probeall();
+}
 sub stringlist() { 
     map {
 	sprintf("%-16s: %s%s%s", 
-- 
cgit v1.2.1