SOURCES (LINUX_2_6_18): kernel-module-build.pl, kernel-vanilla-mod...

[sparky]

Author: sparky                       Date: Wed Dec  6 22:24:28 2006 GMT
Module: SOURCES                       Tag: LINUX_2_6_18
---- Log message:
- kill warning appearing in case of '.' dir

---- Files affected:
SOURCES:
   kernel-module-build.pl (1.1.2.2 -> 1.1.2.2.6.1) , kernel-vanilla-module-build.pl (1.1 -> 1.1.2.1) 

---- Diffs:

================================================================
Index: SOURCES/kernel-module-build.pl
diff -u SOURCES/kernel-module-build.pl:1.1.2.2 SOURCES/kernel-module-build.pl:1.1.2.2.6.1
--- SOURCES/kernel-module-build.pl:1.1.2.2	Tue Jun 13 23:59:06 2006
+++ SOURCES/kernel-module-build.pl	Wed Dec  6 23:24:23 2006
@@ -17,7 +17,7 @@
 	return if $File::Find::name =~ /(Documentation|scripts)/;
 	(my $file = $File::Find::name) =~ s#^\./##;
 	$file =~ m#^(.*)/#;
-	my $dir = $1;
+	my $dir = $1 || "";
 	my $subdir = "";
 	foreach my $sub ( split( '/', $dir )) {
 		$subdir .= "/" . $sub;

================================================================
Index: SOURCES/kernel-vanilla-module-build.pl
diff -u SOURCES/kernel-vanilla-module-build.pl:1.1 SOURCES/kernel-vanilla-module-build.pl:1.1.2.1
--- SOURCES/kernel-vanilla-module-build.pl:1.1	Mon Nov 20 16:45:39 2006
+++ SOURCES/kernel-vanilla-module-build.pl	Wed Dec  6 23:24:23 2006
@@ -17,7 +17,7 @@
 	return if $File::Find::name =~ /(Documentation|scripts)/;
 	(my $file = $File::Find::name) =~ s#^\./##;
 	$file =~ m#^(.*)/#;
-	my $dir = $1;
+	my $dir = $1 || "";
 	my $subdir = "";
 	foreach my $sub ( split( '/', $dir )) {
 		$subdir .= "/" . $sub;
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/SOURCES/kernel-module-build.pl?r1=1.1.2.2&r2=1.1.2.2.6.1&f=u
    http://cvs.pld-linux.org/SOURCES/kernel-vanilla-module-build.pl?r1=1.1&r2=1.1.2.1&f=u