From 7a82a3e981b159b83001c1db902356ffc461e2e9 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Fri, 11 Oct 2002 16:55:00 +0000 Subject: fix speedtouch detection --- perl-install/network/adsl.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/network') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index a1a50e932..ee01ccb21 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -82,7 +82,8 @@ sub adsl_ask_info { sub adsl_detect { my ($adsl) = @_; - $adsl->{speedtouch} = detect_devices::getSpeedtouch(); + $adsl->{speedtouch} = detect_devices::getSpeedtouch(); + return $adsl if $adsl->{speedtouch}; } sub adsl_conf { -- cgit v1.2.1