From 7a82a3e981b159b83001c1db902356ffc461e2e9 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
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(-)

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