summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index f2ddacf63..cd82da320 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -84,7 +84,9 @@ sub adsl_probe_info {
}
sub adsl_detect() {
+ require list_modules;
require detect_devices;
+ my @modules = list_modules::category2modules('network/usb_dsl');
my %compat = (
'speedtch' => 'speedtouch',
'eagle-usb' => 'sagem',
@@ -93,8 +95,11 @@ sub adsl_detect() {
return {
bewan => [ detect_devices::getBewan() ],
eci => [ detect_devices::getECI() ],
- map { my $drv = $_->{driver}; $drv = $compat{$drv} || $drv; $drv => [ $_ ] } modules::probe_category('network/usb_dsl'),
- };
+ map {
+ my @devices = detect_devices::matching_driver($_);
+ $compat{$_} || $_ => \@devices;
+ } @modules,
+ };
}
sub sagem_set_parameters {