diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-03-15 19:23:30 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-03-15 19:23:30 +0000 |
| commit | 31f4502a6bfc4f15263c7d7df4c14fbddfbaeca2 (patch) | |
| tree | 3e973d24e94cbb50323cbbba77a09fec72502a62 /perl-install/network/adsl.pm | |
| parent | 624dba909327bcd4922e2915142d4ee2353f3d0d (diff) | |
| download | drakx-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.pm | 8 |
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; } |