diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-09-28 14:34:01 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-09-28 14:34:01 +0000 |
| commit | f061c5ca27ad9855b6237c56026b3d803c663015 (patch) | |
| tree | 14f362bff0615c0999e2cf32aa60501e8cbca4e6 /kernel/modules.pl | |
| parent | c4a241eab8f9d2e465467521d0a3470a002bbac8 (diff) | |
| download | drakx-f061c5ca27ad9855b6237c56026b3d803c663015.tar drakx-f061c5ca27ad9855b6237c56026b3d803c663015.tar.gz drakx-f061c5ca27ad9855b6237c56026b3d803c663015.tar.bz2 drakx-f061c5ca27ad9855b6237c56026b3d803c663015.tar.xz drakx-f061c5ca27ad9855b6237c56026b3d803c663015.zip | |
use all_modules.tar to get modules list
Diffstat (limited to 'kernel/modules.pl')
| -rw-r--r-- | kernel/modules.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/modules.pl b/kernel/modules.pl index 83004cf27..4e24ef0c9 100644 --- a/kernel/modules.pl +++ b/kernel/modules.pl @@ -229,6 +229,7 @@ sub check() { my ($msg, $verbose, @l) = @_; my %not_listed; foreach (@l) { + chomp; my ($mod) = m|([^/]*)\.k?o(\.gz)?$| or next; delete $deprecated_modules{$mod}; next if $listed{$mod}; @@ -243,7 +244,7 @@ sub check() { print "$msg $_: ", join(" ", @{$not_listed{$_}}), "\n" foreach sort keys %not_listed; } }; - $not_listed->('NOT LISTED', 1, `cd all.kernels/2.6* ; find -name "*.k?o" -o -name "*.k?o.gz"`); + $not_listed->('NOT LISTED', 1, `tar tvf all.kernels/2.6*/all_modules.tar | awk '{ print \$6 }'`); $not_listed->('not listed', $verbose, `rpm -qpl RPMS/kernel-*2.6*`); if (%deprecated_modules) { my %per_cat; |