diff options
| -rw-r--r-- | perl-install/network/adsl.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index eba319c6b..68ad935d8 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -86,9 +86,9 @@ sub adsl_probe_info { sub adsl_detect() { my $adsl = {}; require detect_devices; - $adsl->{speedtouch} = detect_devices::getSpeedtouch(); - $adsl->{sagem} = detect_devices::getSagem(); - $adsl->{eci} = detect_devices::getECI(); + ($adsl->{speedtouch}) = detect_devices::getSpeedtouch(); + ($adsl->{sagem}) = detect_devices::getSagem(); + ($adsl->{eci}) = detect_devices::getECI(); return $adsl; } |