summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/pkgs.pm18
1 files changed, 15 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 6d795f4e5..c4dcac27a 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -152,17 +152,21 @@ sub list_hardware_packages {
grep { !/openoffice/ } simple_read_rpmsrate($o_match_all_hardware);
}
-sub detect_hardware_packages {
+sub detect_graphical_drivers {
my ($do_pkgs, $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($_, $do_pkgs) } @drivers;
+ map { Xconfig::proprietary::pkgs_for_Driver2($_, $do_pkgs) } @drivers;
+}
+sub detect_network_drivers {
+ my ($do_pkgs, $o_match_all_hardware) = @_;
require network::connection;
require network::thirdparty;
+
+ my @l;
foreach my $type (network::connection->get_types) {
$type->can('get_thirdparty_settings') or next;
foreach my $settings (@{$type->get_thirdparty_settings || []}) {
@@ -175,4 +179,12 @@ sub detect_hardware_packages {
@l;
}
+sub detect_hardware_packages {
+ my ($do_pkgs, $o_match_all_hardware) = @_;
+ (
+ detect_graphical_drivers($do_pkgs, $o_match_all_hardware),
+ detect_network_drivers($do_pkgs, $o_match_all_hardware),
+ );
+}
+
1;