summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-11-25 16:51:31 +0000
committerFrancois Pons <fpons@mandriva.com>2002-11-25 16:51:31 +0000
commit052cc148ef719c9a8824475128c3bdbfcabbce0a (patch)
treedaf81f5656a42a7011bc27d2f5e27f42b4f0069a /perl-install
parentb6a01c4caac3b483cb8fe94b301fd6ddb37c1a88 (diff)
downloaddrakx-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.pm3
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;