From 1cf9c9552a90277c5f812b7718f81f62f023652e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Mar 2004 15:12:40 +0000
Subject: - update check() for 2.6 - categorize missing modules - cleanup

---
 kernel/modules.pl | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

(limited to 'kernel/modules.pl')

diff --git a/kernel/modules.pl b/kernel/modules.pl
index 50b63d53f..edca4f713 100644
--- a/kernel/modules.pl
+++ b/kernel/modules.pl
@@ -110,12 +110,10 @@ images() if "@ARGV" =~ /images/;
 check() if "@ARGV" =~ /check/;
 pci_modules4stage1($1) if "@ARGV" =~ /pci_modules4stage1:(.*)/;
 
-sub images {
+sub images() {
     while (my ($image, $l) = each %images) {
 	my @modules = if_($image !~ /drivers/, @modules_always_on_stage1);
-	foreach (split(' ', $l)) { 
-	    push @modules, category2modules($_);
-	}
+	push @modules, map { category2modules($_) } split(' ', $l);
 	
 	@modules = difference2(\@modules, \@modules_removed_from_stage1);
 
@@ -131,14 +129,14 @@ sub pci_modules4stage1 {
     print "$_\n" foreach uniq(map { dependencies_closure($_) } difference2([ category2modules($_[0]) ], \@modules_removed_from_stage1));
 }
 
-sub check {
+sub check() {
     my $error;
     my %listed;
     while (my ($t1, $l) = each %list_modules::l) {
 	while (my ($t2, $l) = each %$l) {
 	    ref $l or die "bad $l in $t1/$t2";
 	    foreach (@$l) {
-		$listed{$_} = 1; 
+		$listed{$_} = "$t1/$t2"; 
 	    }
 	}
     }
@@ -149,7 +147,7 @@ sub check {
 	my ($msg, $verbose, @l) = @_;
 	my %not_listed;
 	foreach (@l) {
-	    my ($mod) = m|([^/]*)\.o(\.gz)?$| or next;
+	    my ($mod) = m|([^/]*)\.k?o(\.gz)?$| or next;
 	    delete $deprecated_modules{$mod};
 	    next if $listed{$mod};
 	    s|.*?mdk(BOOT)?/||;
@@ -163,9 +161,15 @@ sub check {
 	    print "$msg $_: ", join(" ", @{$not_listed{$_}}), "\n" foreach sort keys %not_listed;
 	}
     };
-    $not_listed->('NOT LISTED', 1, `cd all.kernels/2.4* ; find -name "*.o" -o -name "*.o.gz"`);
-    $not_listed->('not listed', $verbose, `rpm -qpl /RPMS/kernel-2.4*`);
-    print "bad/old modules : ", join(" ", sort keys %deprecated_modules), "\n" if %deprecated_modules;
+    $not_listed->('NOT LISTED', 1, `cd all.kernels/2.6* ; find -name "*.k?o" -o -name "*.k?o.gz"`);
+    $not_listed->('not listed', $verbose, `rpm -qpl /RPMS/kernel-2.6*`);
+    if (%deprecated_modules) {
+	my %per_cat;
+	push @{$per_cat{$listed{$_}}}, $_ foreach keys %deprecated_modules;
+	foreach my $cat (sort keys %per_cat) {
+	    print "bad/old modules ($cat) : ", join(" ", sort @{$per_cat{$cat}}), "\n";
+	}
+    }
 
     {
 	require '/usr/bin/merge2pcitable.pl';
-- 
cgit v1.2.1