diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:09:27 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:09:27 +0000 |
| commit | 28915bd9ba5d2f1059e398ab2b809d5f850acd7d (patch) | |
| tree | 86ef74f055febb73304aea60b942315dad499538 /perl_checker_fake_packages/gen.pl | |
| parent | 6d7ea2ef97db70b37e21f80e473e54dc9102a73c (diff) | |
| download | perl_checker-28915bd9ba5d2f1059e398ab2b809d5f850acd7d.tar perl_checker-28915bd9ba5d2f1059e398ab2b809d5f850acd7d.tar.gz perl_checker-28915bd9ba5d2f1059e398ab2b809d5f850acd7d.tar.bz2 perl_checker-28915bd9ba5d2f1059e398ab2b809d5f850acd7d.tar.xz perl_checker-28915bd9ba5d2f1059e398ab2b809d5f850acd7d.zip | |
fix methods with no arguments
Diffstat (limited to 'perl_checker_fake_packages/gen.pl')
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl index b78d140..fc67919 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -57,7 +57,7 @@ sub gtk2 { #- methods with no argument #- my $values = shift->_get_size_request; - if (/$subroutine_decl\my.*=\s*shift->\w+\s*;/) { + if (/$subroutine_decl(my.*=)?\s*shift->\w+\s*((;)|(}))\s*$/) { $add->($fun, ' { my ($_self) = @_ }'); } |