From 5462eaf33f2f577ec029d9c02c99cba17b86b1f7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 21 Jan 2004 17:24:00 +0000
Subject: (adsl_detect) - remove useless parameter - always return an hash,
 even if empty (simplify caller code)

---
 perl-install/network/adsl.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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 {
-- 
cgit v1.2.1