From 052cc148ef719c9a8824475128c3bdbfcabbce0a Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 25 Nov 2002 16:51:31 +0000
Subject: add getSagem() to detect Sagem USB ADSL Modem.

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 593aa04e9..9dddbbb3d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -397,6 +397,9 @@ sub getModem() {
 sub getSpeedtouch {
     grep { $_->{description} eq 'Alcatel|USB ADSL Modem (Speed Touch)' } probeall(0);
 }
+sub getSagem {
+    grep { $_->{description} eq 'Analog Devices Inc.|USB ADSL modem' } probeall(0);
+}
 
 sub getNet() {
     grep { !(($::isStandalone || $::live) && /plip/) && c::hasNetDevice($_) } @netdevices;
-- 
cgit v1.2.1