summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 028cd248d..456b9e92b 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -132,16 +132,17 @@ sub load_category {
if_($category =~ /net/, 'bmac', 'gmac', 'mace', 'airport'),
) : (),
);
- grep {
+ my @l = (probe_category($category),
+ map { { driver => $_, description => $_, try => 1 } } @try_modules);
+
+ foreach (@l) {
$o_wait_message->($_->{description}, $_->{driver}) if $o_wait_message;
eval { load_and_configure($conf, $_->{driver}, $_->{options}) };
$_->{error} = $@;
$_->{try} = 1 if member($_->{driver}, 'hptraid', 'ohci1394'); #- do not warn when this fails
-
- !($_->{error} && $_->{try});
- } probe_category($category),
- map { { driver => $_, description => $_, try => 1 } } @try_modules;
+ }
+ grep { !($_->{error} && $_->{try}) } @l;
}
sub load_parallel_zip {