- simplify

- remove spurious module imports & requires
- remove never used arg (this enable to simplify caller)
- fix detection logic: do not mix old detected stuff with new one if one step
  back in drakconnect after plugging some network devices in

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index a6bc82009..bb88937d9 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -99,8 +99,8 @@ sub adsl_ask_info {
     ask_info2($adsl, $netc);
 }
 
-sub adsl_detect {
-    my ($adsl) = @_;
+sub adsl_detect() {
+    my ($adsl) = {};
     require detect_devices;
     $adsl->{speedtouch} = detect_devices::getSpeedtouch();
     $adsl->{sagem} = detect_devices::getSagem();