summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 036df21e7..8e0d1cffb 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -105,12 +105,12 @@ sub adsl_probe_info {
add2hash($adsl, { login => $login, passwd => $passwd, passwd2 => '' });
}
-sub adsl_detect {
- my ($adsl) = @_;
+sub adsl_detect() {
+ my $adsl = {};
require detect_devices;
$adsl->{speedtouch} = detect_devices::getSpeedtouch();
$adsl->{sagem} = detect_devices::getSagem();
- return $adsl if $adsl->{speedtouch} || $adsl->{sagem};
+ return $adsl;
}
sub adsl_conf_backend {