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 | 2ddafae77744010456367ace313787603f9db5d1 (patch) | |
| tree | df8b6b1e2ac24c4723c225a1325366e02faf283c /perl_checker_fake_packages/gen.pl | |
| parent | 7c27f4091be9914573f1d6674a2a9ae4c6373ce0 (diff) | |
| download | perl-MDK-Common-2ddafae77744010456367ace313787603f9db5d1.tar perl-MDK-Common-2ddafae77744010456367ace313787603f9db5d1.tar.gz perl-MDK-Common-2ddafae77744010456367ace313787603f9db5d1.tar.bz2 perl-MDK-Common-2ddafae77744010456367ace313787603f9db5d1.tar.xz perl-MDK-Common-2ddafae77744010456367ace313787603f9db5d1.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) = @_ }'); } |