summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index c4dcac27a..02fbf8293 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -156,8 +156,16 @@ sub detect_graphical_drivers {
my ($do_pkgs, $o_match_all_hardware) = @_;
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);
+
+ my @cards;
+ if ($o_match_all_hardware) {
+ my $all_cards = Xconfig::card::readCardsDB("$ENV{SHARE_PATH}/ldetect-lst/Cards+");
+ @cards = values %$all_cards;
+ } else {
+ @cards = Xconfig::card::probe();
+ }
+
+ my @drivers = grep { $_ } uniq(map { $_->{Driver2} } @cards);
map { Xconfig::proprietary::pkgs_for_Driver2($_, $do_pkgs) } @drivers;
}