summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-05-19 07:29:20 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-05-19 07:29:20 +0000
commiteab29893ecde2bedd7c4272bcaa1ef885fdd5123 (patch)
tree664f148905bb82cc682dc95958d62b903dd0f023 /perl-install
parent1d83d1c840d40137e2001477e1728e59368076b9 (diff)
downloaddrakx-backup-do-not-use-eab29893ecde2bedd7c4272bcaa1ef885fdd5123.tar
drakx-backup-do-not-use-eab29893ecde2bedd7c4272bcaa1ef885fdd5123.tar.gz
drakx-backup-do-not-use-eab29893ecde2bedd7c4272bcaa1ef885fdd5123.tar.bz2
drakx-backup-do-not-use-eab29893ecde2bedd7c4272bcaa1ef885fdd5123.tar.xz
drakx-backup-do-not-use-eab29893ecde2bedd7c4272bcaa1ef885fdd5123.zip
(adsl_detect) simplify again
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm5
1 files changed, 1 insertions, 4 deletions
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,
};
}