diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-08 18:19:14 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-08 18:19:14 +0000 |
| commit | 92bd74d5a3f23f493a429bba4fecb390db9a9b61 (patch) | |
| tree | 618925df62ac8873cde47a3933a1c129c1307a4e | |
| parent | 373462ebc13959b4acbece0968d85bedc3c1d0c2 (diff) | |
| download | perl_checker-92bd74d5a3f23f493a429bba4fecb390db9a9b61.tar perl_checker-92bd74d5a3f23f493a429bba4fecb390db9a9b61.tar.gz perl_checker-92bd74d5a3f23f493a429bba4fecb390db9a9b61.tar.bz2 perl_checker-92bd74d5a3f23f493a429bba4fecb390db9a9b61.tar.xz perl_checker-92bd74d5a3f23f493a429bba4fecb390db9a9b61.zip | |
(parse_pm) handle functions without spacing before opening "{"
eg: "sub set_color_fg{"
| -rwxr-xr-x | fake_packages/gen.pl | 2 |
1 files changed, 2 insertions, 0 deletions
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*\@_/) { |