From eab29893ecde2bedd7c4272bcaa1ef885fdd5123 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
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/adsl.pm')

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