summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm16
1 files changed, 10 insertions, 6 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index b69261f99..c862b6f23 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -84,13 +84,17 @@ sub adsl_probe_info {
}
sub adsl_detect() {
- my $adsl = {};
require detect_devices;
- @{$adsl->{bewan}} = detect_devices::getBewan();
- @{$adsl->{speedtouch}} = detect_devices::getSpeedtouch();
- @{$adsl->{sagem}} = detect_devices::getSagem();
- @{$adsl->{eci}} = detect_devices::getECI();
- return $adsl;
+ my %compat = (
+ 'speedtch' => 'speedtouch',
+ 'eagle-usb' => 'sagem',
+ );
+
+ return {
+ bewan => [ detect_devices::getBewan() ],
+ eci => [ detect_devices::getECI() ],
+ map { my $drv = $_->{driver}; $drv = $compat{$drv} || $drv; $drv => $_ } modules::probe_category('network/usb_dsl'),
+ };
}
sub sagem_set_parameters {