Merge pull request #5 from albert-github/feature/bug_uninit_sOptions

Uninitialized value $sOptions

Author: jordan2175

lib/Doxygen/Filter/Perl.pm

@@ -824,6 +824,17 @@ sub _ProcessDoxygenCommentBlock
     $sCommandLine =~ /^\s*#\*\*\s+\@([\w:]+)\s+(.*)/;
     my $sCommand = lc($1);
     my $sOptions = $2; 
+    if (!defined($sOptions))
+    {
+      # Lets check special case with a '.' or ',' e.g @winchhooks.
+      $sCommandLine =~ /^\s*#\*\*\s+\@([\w:]+)([\.,].*)/;
+      $sCommand = lc($1);
+      $sOptions = "";
+      if (defined($2))
+      {
+        $sOptions = "$2";
+      }
+    }
     $logger->debug("Command: $sCommand");
     $logger->debug("Options: $sOptions");