diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-08 18:19:13 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-08 18:19:13 +0000 |
| commit | b6be28bd242c03fe8a0a679af1fe78d65f9a9709 (patch) | |
| tree | 0593c7fc2b2fb280a56e4a05aaa63ea4842542e6 /fake_packages/gen.pl | |
| parent | 4c8899698120c3d25558d0cdb2ba0903da044da0 (diff) | |
| download | perl_checker-b6be28bd242c03fe8a0a679af1fe78d65f9a9709.tar perl_checker-b6be28bd242c03fe8a0a679af1fe78d65f9a9709.tar.gz perl_checker-b6be28bd242c03fe8a0a679af1fe78d65f9a9709.tar.bz2 perl_checker-b6be28bd242c03fe8a0a679af1fe78d65f9a9709.tar.xz perl_checker-b6be28bd242c03fe8a0a679af1fe78d65f9a9709.zip | |
(parse_pm) do not exclude functions with ";" in their prototypes
eg: sub draw(;$)
regression introduced in r2880 on 2012-02-01
(was: "(parse_pm) ignore forward declarations")
Diffstat (limited to 'fake_packages/gen.pl')
| -rwxr-xr-x | fake_packages/gen.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index b2a9311..9d09a5b 100755 --- a/fake_packages/gen.pl +++ b/fake_packages/gen.pl @@ -108,7 +108,7 @@ sub parse_pm { $current_package = $1; } elsif (!$current_package) { # waiting for the package line - } elsif (/^sub\s*(\S*);/) { + } elsif (/^sub\s*(\S*);/ && !/;.*\)/) { # forget it } elsif (/^sub\s*(\S*)/) { $name = $1; |