Merge pull request #4 from albert-github/feature/issue_3

jordan2175 · web-flow · commit d0c73532ebdc · 2019-06-18T14:57:30.000+02:00
issue #3 "Use of uninitialized value $sMethodName" problem
diff --git a/lib/Doxygen/Filter/Perl.pm b/lib/Doxygen/Filter/Perl.pm
@@ -673,6 +673,8 @@ sub _ProcessPerlMethod
         push (@{$self->{'_hData'}->{'class'}->{$sClassName}->{'subroutineorder'}}, $sName); 
         $self->{'_sCurrentMethodName'} = $sName; 
     }
+    if (!defined($self->{'_sCurrentMethodName'})) {$self->{'_sCurrentMethodName'}='';}
+
     my $sMethodName = $self->{'_sCurrentMethodName'};
     
     # Lets find out if this is a public or private method/function based on a naming standard

Original file line number	Diff line number	Diff line change
`@@ -673,6 +673,8 @@ sub _ProcessPerlMethod`
`673`	`673`	`push (@{$self->{'_hData'}->{'class'}->{$sClassName}->{'subroutineorder'}}, $sName);`
`674`	`674`	`$self->{'_sCurrentMethodName'} = $sName;`
`675`	`675`	`}`
	`676`	`+ if (!defined($self->{'_sCurrentMethodName'})) {$self->{'_sCurrentMethodName'}='';}`
	`677`	`+`
`676`	`678`	`my $sMethodName = $self->{'_sCurrentMethodName'};`
`677`	`679`
`678`	`680`	`# Lets find out if this is a public or private method/function based on a naming standard`