From 2ddafae77744010456367ace313787603f9db5d1 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 29 Apr 2003 21:09:27 +0000 Subject: fix methods with no arguments --- perl_checker_fake_packages/gen.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker_fake_packages/gen.pl') 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) = @_ }'); } -- cgit v1.2.1