From 2e5c4782e6d6fa3c449f6e94b67518a57a0c1d24 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 28 Sep 2005 15:02:22 +0000
Subject: split all_modules.tar listing in get_main_modules()

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

diff --git a/kernel/modules.pl b/kernel/modules.pl
index 4e24ef0c9..914cba374 100644
--- a/kernel/modules.pl
+++ b/kernel/modules.pl
@@ -205,6 +205,11 @@ sub make_modules_description {
     output("modules.description", @l);
 }
 
+sub get_main_modules() {
+    my $main = chomp_(cat_('RPMS/.main'));
+    `tar tvf all.kernels/$main/all_modules.tar | awk '{ print \$6 }'`
+}
+
 sub pci_modules4stage1 {
     my ($category) = @_;
     my @modules = difference2([ category2modules($category) ], \@modules_removed_from_stage1);
@@ -244,7 +249,7 @@ sub check() {
 	    print "$msg $_: ", join(" ", @{$not_listed{$_}}), "\n" foreach sort keys %not_listed;
 	}
     };
-    $not_listed->('NOT LISTED', 1, `tar tvf all.kernels/2.6*/all_modules.tar | awk '{ print \$6 }'`);
+    $not_listed->('NOT LISTED', 1, get_main_modules());
     $not_listed->('not listed', $verbose, `rpm -qpl RPMS/kernel-*2.6*`);
     if (%deprecated_modules) {
 	my %per_cat;
-- 
cgit v1.2.1