From 7d7b0916501f9c4468eddf66e08e32ca95ef6176 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
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