diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 12 |
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; } |