Author: pluto Date: Tue May 16 17:22:45 2006 GMT
Module: SOURCES Tag: LINUX_2_6
---- Log message:
- helper script.
---- Files affected:
SOURCES:
kernel-module-build.pl (NONE -> 1.1.2.1) (NEW)
---- Diffs:
================================================================
Index: SOURCES/kernel-module-build.pl
diff -u /dev/null SOURCES/kernel-module-build.pl:1.1.2.1
--- /dev/null Tue May 16 19:22:45 2006
+++ SOURCES/kernel-module-build.pl Tue May 16 19:22:40 2006
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+open( F, $ARGV[0]) or die("cannot open file: $ARGV[0]\n" );
[EMAIL PROTECTED] = <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" );
+}
================================================================
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
