diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-11-25 16:51:31 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-11-25 16:51:31 +0000 |
| commit | 052cc148ef719c9a8824475128c3bdbfcabbce0a (patch) | |
| tree | daf81f5656a42a7011bc27d2f5e27f42b4f0069a /perl-install | |
| parent | b6a01c4caac3b483cb8fe94b301fd6ddb37c1a88 (diff) | |
| download | drakx-052cc148ef719c9a8824475128c3bdbfcabbce0a.tar drakx-052cc148ef719c9a8824475128c3bdbfcabbce0a.tar.gz drakx-052cc148ef719c9a8824475128c3bdbfcabbce0a.tar.bz2 drakx-052cc148ef719c9a8824475128c3bdbfcabbce0a.tar.xz drakx-052cc148ef719c9a8824475128c3bdbfcabbce0a.zip | |
add getSagem() to detect Sagem USB ADSL Modem.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 3 |
1 files changed, 3 insertions, 0 deletions
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; |