diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2004-01-13 12:41:52 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2004-01-13 12:41:52 +0000 |
| commit | 8bbfff60b0abe467f5ec1e95facdfbfd86e1c9c4 (patch) | |
| tree | 7e8512f507d2454c75d0983918cd95488be30109 /perl-install/detect_devices.pm | |
| parent | 58f604869ed79dd73e01a4955efbadd97226635d (diff) | |
| download | drakx-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.pm | 6 |
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", |