From 31f4502a6bfc4f15263c7d7df4c14fbddfbaeca2 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 15 Mar 2005 19:23:30 +0000 Subject: allow drakconnect to display multiple instances of the same adsl device --- perl-install/network/adsl.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/network/adsl.pm') 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; } -- cgit v1.2.1