summaryrefslogtreecommitdiffstats
path: root/perl-install/network/adsl.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-03-15 19:23:30 +0000
committerOlivier Blin <oblin@mandriva.org>2005-03-15 19:23:30 +0000
commit31f4502a6bfc4f15263c7d7df4c14fbddfbaeca2 (patch)
tree3e973d24e94cbb50323cbbba77a09fec72502a62 /perl-install/network/adsl.pm
parent624dba909327bcd4922e2915142d4ee2353f3d0d (diff)
downloaddrakx-31f4502a6bfc4f15263c7d7df4c14fbddfbaeca2.tar
drakx-31f4502a6bfc4f15263c7d7df4c14fbddfbaeca2.tar.gz
drakx-31f4502a6bfc4f15263c7d7df4c14fbddfbaeca2.tar.bz2
drakx-31f4502a6bfc4f15263c7d7df4c14fbddfbaeca2.tar.xz
drakx-31f4502a6bfc4f15263c7d7df4c14fbddfbaeca2.zip
allow drakconnect to display multiple instances of the same adsl device
Diffstat (limited to 'perl-install/network/adsl.pm')
-rw-r--r--perl-install/network/adsl.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 3f7b44a1a..2863a215f 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -86,10 +86,10 @@ sub adsl_probe_info {
sub adsl_detect() {
my $adsl = {};
require detect_devices;
- ($adsl->{bewan}) = detect_devices::getBewan();
- ($adsl->{speedtouch}) = detect_devices::getSpeedtouch();
- ($adsl->{sagem}) = detect_devices::getSagem();
- ($adsl->{eci}) = detect_devices::getECI();
+ @{$adsl->{bewan}} = detect_devices::getBewan();
+ @{$adsl->{speedtouch}} = detect_devices::getSpeedtouch();
+ @{$adsl->{sagem}} = detect_devices::getSagem();
+ @{$adsl->{eci}} = detect_devices::getECI();
return $adsl;
}