summaryrefslogtreecommitdiffstats
path: root/fake_packages/gen.pl
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-08 18:19:13 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-08 18:19:13 +0000
commitb6be28bd242c03fe8a0a679af1fe78d65f9a9709 (patch)
tree0593c7fc2b2fb280a56e4a05aaa63ea4842542e6 /fake_packages/gen.pl
parent4c8899698120c3d25558d0cdb2ba0903da044da0 (diff)
downloadperl_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-xfake_packages/gen.pl2
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;