Skip to content

Commit a3ecdd3

Browse files
committed
Uninitialized value $sOptions
In case we have a command line, in the perl script, like: ``` @winchook. ``` we get a message like (line number might be off due to other patches): ``` Use of uninitialized value $sOptions in concatenation (.) or string at /usr/lib/perl5/site_perl/5.18.2/Doxygen/Filter/Perl.pm line 835. ``` In case of a not set `$sOptions` we now see whether a '.' or ',' is present.
1 parent a86bc66 commit a3ecdd3

File tree

1 file changed

+7
-0
lines changed

1 file changed

+7
-0
lines changed

lib/Doxygen/Filter/Perl.pm

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -822,6 +822,13 @@ sub _ProcessDoxygenCommentBlock
822822
$sCommandLine =~ /^\s*#\*\*\s+\@([\w:]+)\s+(.*)/;
823823
my $sCommand = lc($1);
824824
my $sOptions = $2;
825+
if (!defined($sOptions))
826+
{
827+
# Lets check special case with a '.' or ',' e.g @winchhooks.
828+
$sCommandLine =~ /^\s*#\*\*\s+\@([\w:]+)([\.,].*)/;
829+
$sCommand = lc($1);
830+
$sOptions = "$2";
831+
}
825832
$logger->debug("Command: $sCommand");
826833
$logger->debug("Options: $sOptions");
827834

0 commit comments

Comments
 (0)