- helper script.

Changed files:
    kernel-module-build.pl -> 1.1.2.1

diff --git a/kernel-module-build.pl b/kernel-module-build.pl
new file mode 100644 (file)
index 0000000..c52d66d
--- /dev/null
+++ b/kernel-module-build.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+open( F, $ARGV[0]) or die("cannot open file: $ARGV[0]\n" );
+@lines = <F>;
+close( F );
+
+foreach (@lines)
+{
+       @pe = split( '/', $_ );
+       my $tmp;
+       for my $p (0 .. $#pe - 1)
+       {
+               $tmp = $tmp . '/' . $pe[$p];
+               print( "%dir $ARGV[1]$tmp\n" );
+       }
+       my $file = join( '/', @pe );
+       print( "$ARGV[1]/$file" );
+}