Merge pull request #20 from albert-github/feature/bug_package

jordan2175 · web-flow · commit 53d33689f708 · 2019-11-14T17:06:34.000-07:00
Detection of package name
diff --git a/lib/Doxygen/Filter/Perl.pm b/lib/Doxygen/Filter/Perl.pm
@@ -258,7 +258,7 @@ sub ProcessFile
         # Process states
         if ($self->{'_sState'} eq 'NORMAL')
         {
-            if ($line =~ /^\s*package\s*(.*)\;$/) 
+            if ($line =~ /^\s*package\s*([^;]*)\;/)
             { 
                 #$self->{'_sCurrentClass'} = $1;
                 #push (@{$self->{'_hData'}->{'class'}->{'classorder'}}, $1);

Original file line number	Diff line number	Diff line change
`@@ -258,7 +258,7 @@ sub ProcessFile`
`258`	`258`	`# Process states`
`259`	`259`	`if ($self->{'_sState'} eq 'NORMAL')`
`260`	`260`	`{`
`261`		`- if ($line =~ /^\spackage\s(.*)\;$/)`
	`261`	`+ if ($line =~ /^\spackage\s([^;]*)\;/)`
`262`	`262`	`{`
`263`	`263`	`#$self->{'_sCurrentClass'} = $1;`
`264`	`264`	`#push (@{$self->{'_hData'}->{'class'}->{'classorder'}}, $1);`