From c487bc66e10c419fc1a1bca0d41fece568cb0589 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 8 Mar 2012 18:19:14 +0000 Subject: (parse_pm) handle functions without spacing before opening "{" eg: "sub set_color_fg{" --- fake_packages/gen.pl | 2 ++ 1 file changed, 2 insertions(+) (limited to 'fake_packages/gen.pl') diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index 9d09a5b..b65cd5d 100755 --- a/fake_packages/gen.pl +++ b/fake_packages/gen.pl @@ -112,6 +112,8 @@ sub parse_pm { # forget it } elsif (/^sub\s*(\S*)/) { $name = $1; + # handle functions without spacing before opening "{" (eg: "sub set_color_fg{") + $name =~ s/{$//; $l{$current_package}{$name} = [] if !defined($l{$current_package}{$name}); $state = 'waiting_for_param'; } elsif ($state eq 'waiting_for_param' && /=\s*\@_/) { -- cgit v1.2.1