[PATCH] scripts/kernel-doc: don't use uninitialized SRCTREE

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: Sam Ravnborg <sam@ravnborg.org>
This commit is contained in:
Randy Dunlap 2005-07-07 15:39:26 -07:00 committed by Sam Ravnborg
parent 66da665ca3
commit 2283a117f6

View file

@ -1665,11 +1665,17 @@ sub xml_escape($) {
} }
sub process_file($) { sub process_file($) {
my ($file) = "$ENV{'SRCTREE'}@_"; my $file;
my $identifier; my $identifier;
my $func; my $func;
my $initial_section_counter = $section_counter; my $initial_section_counter = $section_counter;
if (defined($ENV{'SRCTREE'})) {
$file = "$ENV{'SRCTREE'}" . "/" . "@_";
}
else {
$file = "@_";
}
if (defined($source_map{$file})) { if (defined($source_map{$file})) {
$file = $source_map{$file}; $file = $source_map{$file};
} }