diff options
| -rw-r--r-- | kernel/modules.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/kernel/modules.pl b/kernel/modules.pl index 68e6c4ab9..a6ad02fb3 100644 --- a/kernel/modules.pl +++ b/kernel/modules.pl @@ -213,8 +213,13 @@ sub get_main_modules() { sub pci_modules4stage1 { my ($category) = @_; + my @list = map { s/\.k?o.*$//; chomp_($_) } get_main_modules(); + my %listed; + @listed{@list} = (); my @modules = difference2([ category2modules($category) ], \@modules_removed_from_stage1); - print "$_\n" foreach uniq(map { dependencies_closure($_) } @modules); + my ($kept, $rejected) = partition { exists $listed{$_} } @modules; + print STDERR "REJECTED @$rejected\n" if $verbose; + print "$_\n" foreach uniq(map { dependencies_closure($_) } @$kept); } sub check() { |