summaryrefslogtreecommitdiffstats
path: root/mdk-stage1
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-04 22:03:53 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-04 22:03:53 +0000
commit1a1d3a6e3d5d482d5bcffd5b93c91598a1d7e9f9 (patch)
tree27f3022400a4311a02c2d017d9cce1ff9bcb82c0 /mdk-stage1
parentd6700c35c19e9e60daa767c3a7c0dc0c30eb5778 (diff)
downloaddrakx-backup-do-not-use-1a1d3a6e3d5d482d5bcffd5b93c91598a1d7e9f9.tar
drakx-backup-do-not-use-1a1d3a6e3d5d482d5bcffd5b93c91598a1d7e9f9.tar.gz
drakx-backup-do-not-use-1a1d3a6e3d5d482d5bcffd5b93c91598a1d7e9f9.tar.bz2
drakx-backup-do-not-use-1a1d3a6e3d5d482d5bcffd5b93c91598a1d7e9f9.tar.xz
drakx-backup-do-not-use-1a1d3a6e3d5d482d5bcffd5b93c91598a1d7e9f9.zip
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)
Diffstat (limited to 'mdk-stage1')
-rwxr-xr-xmdk-stage1/pci-resource/update-pci-ids.pl14
1 files changed, 5 insertions, 9 deletions
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[] = {
";