From 1a1d3a6e3d5d482d5bcffd5b93c91598a1d7e9f9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 4 Jul 2002 22:03:53 +0000 Subject: new directory "kernel" containing: - all.modules all.kernels update_kernel - part of perl-install/modules.pm now in kernel/list_modules.pm and kernel/modules.pl - update_kernel cleaned (it doesn't mention module names anymore, it is now in kernel/modules.pl) - cleanup Makefile - mdk-stage1 doesn't depend on perl-install anymore (more precisely mdk-stage1/pci-resource/update-pci-ids.pl) --- mdk-stage1/pci-resource/update-pci-ids.pl | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) (limited to 'mdk-stage1') diff --git a/mdk-stage1/pci-resource/update-pci-ids.pl b/mdk-stage1/pci-resource/update-pci-ids.pl index dcce42c28..9969b6acf 100755 --- a/mdk-stage1/pci-resource/update-pci-ids.pl +++ b/mdk-stage1/pci-resource/update-pci-ids.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl use MDK::Common; -use lib qw(../../perl-install); -x "../mar/mar" or die "\t*FAILED* Sorry, need ../mar/mar binary\n"; @@ -37,25 +36,22 @@ my %sanity_check = ); foreach $type (keys %t) { + my @modulez; print STDERR "$type (checks: ", join('/', @{$sanity_check{$type}}), ") "; foreach $floppy (@{$t{$type}}) { - foreach $marfile (glob("../../all.modules/*/${floppy}_modules.mar")) { + foreach $marfile (glob("../../kernel/all.modules/*/${floppy}_modules.mar")) { -f $marfile or die "\t*FAILED* Sorry, need $marfile mar file\n"; - my @modz = `../mar/mar -l $marfile`; + my @modz = map { /(\S+)\.o/ } `../mar/mar -l $marfile`; if ($marfile !~ /(2\.2\.14)|(other)/) { foreach $mandatory (@{$sanity_check{$type}}) { - grep(/\t$mandatory\.o/, @modz) or die "\t*FAILED* Sanity check should prove that $mandatory.o be part of $marfile\n" + member($mandatory, @modz) or die "\t*FAILED* Sanity check should prove that $mandatory.o be part of $marfile\n" } } + push @modulez, @modz; print STDERR "."; } } - my %names_in_stage2 = ( network => [ 'net' ], medias => [ 'scsi', 'disk', 'big' ] ); - require modules; - my @modulez; - push @modulez, modules::module_of_type__4update_kernel($_) foreach @{$names_in_stage2{$type}}; - print "#ifndef DISABLE_".uc($type)." struct pci_module_map ${type}_pci_ids[] = { "; -- cgit v1.2.1