diff options
| -rw-r--r-- | perl-install/network/adsl.pm | 9 |
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 { |