From 59b875917b51422091d5b7bded36901af9e979d4 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 28 Sep 2005 15:32:45 +0000
Subject: reject unavailable modules in stage1 list (#18803)

---
 kernel/modules.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'kernel')

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() {
-- 
cgit v1.2.1