diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 20:54:09 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 20:54:09 +0000 |
| commit | da727e3590097c8b4ecebcaa0f58d4c51ef16966 (patch) | |
| tree | 6f54e80bf6a231571c49221b827d575043423855 /perl_checker_fake_packages/gen.pl | |
| parent | 5469ec712598532f5c8197e081a2cc222d427d04 (diff) | |
| download | perl_checker-da727e3590097c8b4ecebcaa0f58d4c51ef16966.tar perl_checker-da727e3590097c8b4ecebcaa0f58d4c51ef16966.tar.gz perl_checker-da727e3590097c8b4ecebcaa0f58d4c51ef16966.tar.bz2 perl_checker-da727e3590097c8b4ecebcaa0f58d4c51ef16966.tar.xz perl_checker-da727e3590097c8b4ecebcaa0f58d4c51ef16966.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 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) = @_ }'); } |