diff options
| -rw-r--r-- | perl-install/modules.pm | 11 |
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 { |