From: Randy Dunlap <rdunlap@xenotime.net>
Current kernel-doc (perl) script generates this warning: Use of uninitialized
value in concatenation (.) or string at scripts/kernel-doc line 1668.
So explicitly check for SRCTREE in the ENV before using it, and then if it is
set, append a '/' to the end of it, otherwise the SRCTREE + filename can
(will) be missing the intermediate '/'.
Signed-off-by: Randy Dunlap <rdunlap@xenotime.net>
Signed-off-by: Andrew Morton <akpm@osdl.org>
---
scripts/kernel-doc | 8 +++++++-
1 files changed, 7 insertions(+), 1 deletion(-)
diff -puN scripts/kernel-doc~scripts-kernel-doc-dont-use-uninitialized-srctree scripts/kernel-doc
--- 25/scripts/kernel-doc~scripts-kernel-doc-dont-use-uninitialized-srctree Fri Jul 8 16:17:42 2005
+++ 25-akpm/scripts/kernel-doc Fri Jul 8 16:17:42 2005
@@ -1665,11 +1665,17 @@ sub xml_escape($) {
}
sub process_file($) {
- my ($file) = "$ENV{'SRCTREE'}@_";
+ my $file;
my $identifier;
my $func;
my $initial_section_counter = $section_counter;
+ if (defined($ENV{'SRCTREE'})) {
+ $file = "$ENV{'SRCTREE'}" . "/" . "@_";
+ }
+ else {
+ $file = "@_";
+ }
if (defined($source_map{$file})) {
$file = $source_map{$file};
}
_