Author: sparky Date: Wed Dec 6 22:25:24 2006 GMT
Module: SOURCES Tag: LINUX_2_6_17
---- Log message:
- kill warning appearing in case of '.' dir
---- Files affected:
SOURCES:
kernel-module-build.pl (1.1.2.2 -> 1.1.2.2.4.1) ,
kernel-desktop-module-build.pl (1.2 -> 1.2.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.4.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:25:19 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-desktop-module-build.pl
diff -u SOURCES/kernel-desktop-module-build.pl:1.2
SOURCES/kernel-desktop-module-build.pl:1.2.2.1
--- 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:25:19 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.4.1&f=u
http://cvs.pld-linux.org/SOURCES/kernel-desktop-module-build.pl?r1=1.2&r2=1.2.2.1&f=u
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
