X-Git-Url: https://git.tld-linux.org/?a=blobdiff_plain;f=kernel-vanilla-module-build.pl;fp=kernel-vanilla-module-build.pl;h=0000000000000000000000000000000000000000;hb=b3dd1a93cb89cc7e5a1e01cbb78c8959036306bc;hp=39975f3aebb26dacb072aafbc75115d6a935018a;hpb=63db3a789c6a64add50e6a0587561ee3039f9480;p=packages%2Fkernel.git

diff --git a/kernel-vanilla-module-build.pl b/kernel-vanilla-module-build.pl
deleted file mode 100644
index 39975f3..0000000
--- a/kernel-vanilla-module-build.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl
-#
-use strict;
-use warnings;
-use File::Find qw(find);
-
-my $rpmdir = shift @ARGV or die;
-my $fileoutdir = shift @ARGV or die;
-my @tosort;
-
-find(\&wanted, ".");
-
-sub wanted {
-	return unless -f;
-	return unless /^Kconfig/ or /^Makefile/;
-	#return if /\.orig$/;
-	return if $File::Find::name =~ /(Documentation|scripts)/;
-	(my $file = $File::Find::name) =~ s#^\./##;
-	$file =~ m#^(.*)/#;
-	my $dir = $1 || "";
-	my $subdir = "";
-	foreach my $sub ( split( '/', $dir )) {
-		$subdir .= "/" . $sub;
-		push @tosort, "\%dir $rpmdir$subdir\n";
-	}
-	push @tosort, "$rpmdir/$file\n";
-}
-
-my $last = "";
-my @toprint = grep {if ($_ ne $last) { $last = $_; 1} else {0}} sort @tosort;
-
-open F_OUT, "> $fileoutdir/aux_files" or die "Can't create aux_files: $!\n";
-print F_OUT @toprint;
-close F_OUT and print "aux_files created\n";
-
-open F_OUT, "> $fileoutdir/aux_files_exc" or die "Can't create aux_files_exc: $!\n";
-print F_OUT map {"\%exclude $_"} @toprint;
-close F_OUT and print "aux_files_exc created\n";