summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/steps.pm')
-rw-r--r--perl-install/install/steps.pm21
1 files changed, 1 insertions, 20 deletions
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index 07c9063ed..812ff7776 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -573,26 +573,7 @@ sub install_urpmi {
sub install_hardware_packages {
my ($o) = @_;
if ($o->{match_all_hardware}) {
- my @l;
-
- require Xconfig::card;
- require Xconfig::proprietary;
- my $cards = Xconfig::card::readCardsDB("$ENV{SHARE_PATH}/ldetect-lst/Cards+");
- my @drivers = grep { $_ } uniq(map { $_->{Driver2} } values %$cards);
- push @l, map { Xconfig::proprietary::pkgs_for_Driver2($_, $o->do_pkgs) } @drivers;
-
- require network::connection;
- require network::thirdparty;
- foreach my $type (network::connection->get_types) {
- $type->can('get_thirdparty_settings') or next;
- foreach my $settings (@{$type->get_thirdparty_settings || []}) {
- foreach (@network::thirdparty::thirdparty_types) {
- my @packages = network::thirdparty::get_required_packages($_, $settings);
- push @l, network::thirdparty::get_available_packages($_, $o->do_pkgs, @packages);
- }
- }
- }
-
+ my @l = pkgs::detect_hardware_packages($o->do_pkgs, $o->{match_all_hardware});
$o->do_pkgs->install(@l) if @l;
}
}