move hardware packages detection code in pkgs

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;
     }
 }