From eab29893ecde2bedd7c4272bcaa1ef885fdd5123 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 19 May 2005 07:29:20 +0000 Subject: (adsl_detect) simplify again --- perl-install/network/adsl.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 1b089900f..d12627387 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -96,10 +96,7 @@ sub adsl_detect() { return { bewan => [ detect_devices::getBewan() ], eci => [ detect_devices::getECI() ], - map { - my @devices = detect_devices::matching_driver($_); - $compat{$_} || $_ => \@devices; - } @modules, + map { $compat{$_} || $_ => [ detect_devices::matching_driver($_) ] } @modules, }; } -- cgit v1.2.1