summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2004-01-13 12:41:52 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2004-01-13 12:41:52 +0000
commit8bbfff60b0abe467f5ec1e95facdfbfd86e1c9c4 (patch)
tree7e8512f507d2454c75d0983918cd95488be30109 /perl-install/detect_devices.pm
parent58f604869ed79dd73e01a4955efbadd97226635d (diff)
downloaddrakx-8bbfff60b0abe467f5ec1e95facdfbfd86e1c9c4.tar
drakx-8bbfff60b0abe467f5ec1e95facdfbfd86e1c9c4.tar.gz
drakx-8bbfff60b0abe467f5ec1e95facdfbfd86e1c9c4.tar.bz2
drakx-8bbfff60b0abe467f5ec1e95facdfbfd86e1c9c4.tar.xz
drakx-8bbfff60b0abe467f5ec1e95facdfbfd86e1c9c4.zip
detect_devices::matching_driver -> matching_desc but matching driver names (kernel modules)
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm6
1 files changed, 5 insertions, 1 deletions
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",