summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modalias.pm12
1 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/modalias.pm b/perl-install/modalias.pm
index 86d2f0603..e1b61edc0 100644
--- a/perl-install/modalias.pm
+++ b/perl-install/modalias.pm
@@ -13,6 +13,8 @@ my @config_groups = (
"/etc/modprobe.conf",
"/etc/modprobe.d",
],
+);
+my @system_groups = (
[
"/lib/module-init-tools/ldetect-lst-modules.alias",
],
@@ -70,23 +72,25 @@ sub parse_file_modules {
\%modules;
}
-sub get_alias_groups() {
+sub get_alias_groups {
+ my ($o_skip_config) = @_;
+ #- FIXME: only o_skip_config from the first call is considered
@alias_groups = map {
my $group = {};
parse_path($group, $_) foreach @$_;
$group;
- } @config_groups unless @alias_groups;
+ } if_(!$o_skip_config, @config_groups), @system_groups unless @alias_groups;
@alias_groups;
}
sub get_modules {
- my ($modalias) = @_;
+ my ($modalias, $o_skip_config) = @_;
my ($class) = $modalias =~ /^([^:]+):\S+$/;
my ($vendor, $device) = alias_to_ids($modalias);
$class && member($class, @classes) or return;
require File::FnMatch;
- foreach my $group (get_alias_groups()) {
+ foreach my $group (get_alias_groups($o_skip_config)) {
my @aliases;
foreach my $subgroup ($group->{$class}{$vendor}{$device}, $group->{$class}{other}) {
foreach (group_by2(@$subgroup)) {