summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-21 17:24:00 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-21 17:24:00 +0000
commit5462eaf33f2f577ec029d9c02c99cba17b86b1f7 (patch)
tree000922c47f7a6020a61357567455cb45f235e36b /perl-install
parent9cc20938eb0d49b3a4eeed3e217e624c5f2ce008 (diff)
downloaddrakx-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.tar
drakx-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.tar.gz
drakx-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.tar.bz2
drakx-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.tar.xz
drakx-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.zip
(adsl_detect)
- remove useless parameter - always return an hash, even if empty (simplify caller code)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm6
1 files changed, 3 insertions, 3 deletions
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 {