From a030cfea974447d595cc068ab02657e9536d8ae5 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Sun, 16 Mar 2003 15:30:56 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'V9_1_26mdk'.

---
 kernel/check_mar.pl | 31 -------------------------------
 1 file changed, 31 deletions(-)
 delete mode 100755 kernel/check_mar.pl

(limited to 'kernel/check_mar.pl')

diff --git a/kernel/check_mar.pl b/kernel/check_mar.pl
deleted file mode 100755
index c288d83bd..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 $marfile 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";
-}
-- 
cgit v1.2.1