issue #3 "Use of uninitialized value $sMethodName" problem

albert-github · albert-github · commit 5d8f5c7a3860 · 2019-04-28T12:50:28.000+02:00
Fixing: Use of uninitialized value $sMethodName in pattern match (m//) at /home/User/perl5/lib/perl5/Doxygen/Filter/Perl.pm line 679. (and further lines)
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`