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};
     }
_