diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-21 17:24:00 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-21 17:24:00 +0000 |
| commit | 5462eaf33f2f577ec029d9c02c99cba17b86b1f7 (patch) | |
| tree | 000922c47f7a6020a61357567455cb45f235e36b /perl-install/network/adsl.pm | |
| parent | 9cc20938eb0d49b3a4eeed3e217e624c5f2ce008 (diff) | |
| download | drakx-backup-do-not-use-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.tar drakx-backup-do-not-use-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.tar.gz drakx-backup-do-not-use-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.tar.bz2 drakx-backup-do-not-use-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.tar.xz drakx-backup-do-not-use-5462eaf33f2f577ec029d9c02c99cba17b86b1f7.zip | |
(adsl_detect)
- remove useless parameter
- always return an hash, even if empty (simplify caller code)
Diffstat (limited to 'perl-install/network/adsl.pm')
| -rw-r--r-- | perl-install/network/adsl.pm | 6 |
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 { |