diff options
| author | Mystery Man <unknown@mandriva.org> | 2002-08-01 17:20:30 +0000 |
|---|---|---|
| committer | Mystery Man <unknown@mandriva.org> | 2002-08-01 17:20:30 +0000 |
| commit | 10e8a05be15a93ecb30d80420a7df79a41df0b6f (patch) | |
| tree | 0fe3a8fe9665e857dcea7c8d35b539ab0295a6fa /kernel/check_mar.pl | |
| parent | 20bc98cdccfed607ee0c3050a3a3bd196c0a1d38 (diff) | |
| download | drakx-backup-do-not-use-10e8a05be15a93ecb30d80420a7df79a41df0b6f.tar drakx-backup-do-not-use-10e8a05be15a93ecb30d80420a7df79a41df0b6f.tar.gz drakx-backup-do-not-use-10e8a05be15a93ecb30d80420a7df79a41df0b6f.tar.bz2 drakx-backup-do-not-use-10e8a05be15a93ecb30d80420a7df79a41df0b6f.tar.xz drakx-backup-do-not-use-10e8a05be15a93ecb30d80420a7df79a41df0b6f.zip | |
This commit was manufactured by cvs2svn to create tag 'V1_1_9_1mdk'.V1_1_9_1mdk
Diffstat (limited to 'kernel/check_mar.pl')
| -rwxr-xr-x | kernel/check_mar.pl | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/kernel/check_mar.pl b/kernel/check_mar.pl deleted file mode 100755 index d29e65088..000000000 --- a/kernel/check_mar.pl +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/bin/perl - -use MDK::Common; - -my $mar = '../mdk-stage1/mar/mar'; --x $mar or die "ERROR: Sorry, need $mar binary\n"; - -my %sanity_check = ( - hd => [ - if_(arch() !~ /x86_64/, 'aic7xxx'), - qw(sym53c8xx initio), - if_(arch() !~ /ppc/, 'advansys'), - ], - network => [ - qw(3c59x eepro100 tulip via-rhine ne2k-pci 8139too), - if_(arch() !~ /ppc|x86_64/, 'e100'), - if_(arch() !~ /ppc|ia64/, 'tlan'), - ], -); - -my $main_version = chomp_(cat_("all.kernels/.main")); - -foreach (keys %sanity_check) { - my $marfile = "all.modules/$main_version/${_}_modules.mar"; - -e $mar or die "ERROR: missing $marfile\n"; - - my @l = map { /(\S+)\.o/ } `$mar -l $marfile`; - my @pbs = difference2($sanity_check{$_}, \@l); - - @pbs and die "ERROR: sanity check should prove that " . join(" ", @pbs) . " be part of $marfile\n"; -} |