From ca6b356e81f6f5870d39e33b8238a555896e7c69 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 20 Feb 2004 18:38:09 +0000
Subject: (getBewan) introduce it in order to detect Bewan ADSL modems (both
 PCI and USB ones)

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 966e450a3..287cf657a 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -384,6 +384,11 @@ sub getModem() {
 sub getSpeedtouch() {
     grep { $_->{description} eq 'Alcatel|USB ADSL Modem (Speed Touch)' } probeall();
 }
+
+sub getBewan() {
+    grep { $_->{description} eq 'Bewan Systems\|PCI ADSL Modem|BEWAN ADSL USB' } probeall();
+    
+}
 sub getSagem() {
     grep { member($_->{driver}, qw(adiusbadsl eagle-usb)) } probeall();
 }
-- 
cgit v1.2.1