From 7d7b0916501f9c4468eddf66e08e32ca95ef6176 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Mon, 28 Oct 2002 17:53:44 +0000 Subject: s#$_->{driver} eq 'Bad:www.linmodems.org'#$_->{driver} =~ /www.linmodems.org/# to fit with ldetect --- perl-install/detect_devices.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 6b718fb0d..f1543f46c 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -393,7 +393,7 @@ sub getSerialModem { } sub getModem() { - my @pci_modems = grep { $_->{driver} eq 'Bad:www.linmodems.org' } probeall(0); + my @pci_modems = grep { $_->{driver} =~ /www.linmodems.org/ } probeall(0); my $serial_modem = {}; getSerialModem($serial_modem); $serial_modem, @pci_modems; -- cgit v1.2.1