removing wrong file

1 files changed, 0 insertions, 40 deletions

diff --git a/kernel/gen_modules_conf.pl.pl b/kernel/gen_modules_conf.pl.pl
deleted file mode 100755
index e842eafa0..000000000
--- a/kernel/gen_modules_conf.pl.pl
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/usr/bin/perl
-
-use list_modules;
-
-my %kinds = (
-    scsi => 'disk/scsi|hardware_raid',
-    network => 'network/main|usb',
-);
-
-my %kinds2all_modules = map { 
-    $_ => [ list_modules::category2modules($kinds{$_}) ];
-} keys %kinds;
-
-$kinds2all_modules{usb} = [ qw(usb-uhci usb-ohci ehci-hcd) ];
-
-use Data::Dumper;
-print Data::Dumper->Dump([\%kinds2all_modules], ['$kinds2all_modules']);
-
-print <<'EOF';
-my @l = map { /^(\S+)\s*:/ ? $1 : () } `lspcidrake`;
-
-my %kinds2modules = map { 
-    $_ => [ intersection(\@l, $kinds2all_modules->{$_}) ];
-} keys %$kinds2all_modules;
-
-if (my @scsi = @{$kinds2modules{scsi}}) {
-    print "probeall scsi_hostadapter ", join(" ", @scsi), "\n";
-}
-if (my @usb = @{$kinds2modules{usb}}) {
-    print "probeall usb-interface ", join(" ", @usb), "\n";
-}
-my $eth = 0;
-foreach (@{$kinds2modules{network}}) {
-    print "alias eth$eth $_\n";
-    $eth++;
-}
-
-sub intersection { my (%l, @m); @l{@{shift @_}} = (); foreach (@_) { @m = grep { exists $l{$_} } @$_; %l = (); @l{@m} = () } keys %l }
-EOF
-