SOURCES: kernel-desktop-module-build.pl, kernel-rcd-module-build.p...

[sparky]

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

---- Files affected:
SOURCES:
   kernel-desktop-module-build.pl (1.2 -> 1.3) , kernel-rcd-module-build.pl (1.1 -> 1.2) , kernel-vanilla-module-build.pl (1.1 -> 1.2) 

---- Diffs:

================================================================
Index: SOURCES/kernel-desktop-module-build.pl
diff -u SOURCES/kernel-desktop-module-build.pl:1.2 SOURCES/kernel-desktop-module-build.pl:1.3
--- SOURCES/kernel-desktop-module-build.pl:1.2	Tue Jun 13 21:07:55 2006
+++ SOURCES/kernel-desktop-module-build.pl	Wed Dec  6 23:21:45 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-rcd-module-build.pl
diff -u SOURCES/kernel-rcd-module-build.pl:1.1 SOURCES/kernel-rcd-module-build.pl:1.2
--- SOURCES/kernel-rcd-module-build.pl:1.1	Mon Jul 10 00:58:10 2006
+++ SOURCES/kernel-rcd-module-build.pl	Wed Dec  6 23:21:46 2006
@@ -17,7 +17,7 @@
 	return if $File::Find::name =~ /(Documentation|scripts)/;
 	(my $file = $File::Find::name) =~ s#^$dir/##;
 	$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.2
--- 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:21:46 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-desktop-module-build.pl?r1=1.2&r2=1.3&f=u
    http://cvs.pld-linux.org/SOURCES/kernel-rcd-module-build.pl?r1=1.1&r2=1.2&f=u
    http://cvs.pld-linux.org/SOURCES/kernel-vanilla-module-build.pl?r1=1.1&r2=1.2&f=u