From b6be28bd242c03fe8a0a679af1fe78d65f9a9709 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 8 Mar 2012 18:19:13 +0000 Subject: (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") --- fake_packages/gen.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'fake_packages') 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; -- cgit v1.2.1