diff options
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 0a42db2..7b45b7d 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -55,7 +55,7 @@ sub gtk2 { #- methods with no argument #- my $values = shift->_get_size_request; - if (/$subroutine_decl\shift->\w+\s*;/) { + if (/$subroutine_decl\my.*=\s*shift->\w+\s*;/) { $add->($fun, ' { my ($_self) = @_ }'); } |