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 | |
| 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')
| -rw-r--r-- | perl_checker_fake_packages/Gtk2.pm | 3 | ||||
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm index 4cf9432..84bee00 100644 --- a/perl_checker_fake_packages/Gtk2.pm +++ b/perl_checker_fake_packages/Gtk2.pm @@ -386,6 +386,7 @@ sub Gtk2::change { my ($_list, $_attr) = @_ } sub Gtk2::changed { my ($_adjustment) = @_ } sub Gtk2::changed_mask { my ($_event) = @_ } sub Gtk2::check_resize { my ($_container) = @_ } +sub Gtk2::child { my ($_self) = @_ } sub Gtk2::child_focus { my ($_widget, $_direction) = @_ } sub Gtk2::child_notify { my ($_widget, $_child_property) = @_ } sub Gtk2::child_position { my ($_list, $_child) = @_ } @@ -1226,7 +1227,7 @@ sub Gtk2::set_show_events { my ($_class, $_show_events) = @_ } sub Gtk2::set_show_tabs { my ($_notebook, $_show_tabs) = @_ } sub Gtk2::set_single_paragraph_mode { my ($_layout, $_setting) = @_ } sub Gtk2::set_size {} -sub Gtk2::set_size_request { my ($_x, $_y) = @_ } +sub Gtk2::set_size_request { my ($_self, $_x, $_y) = @_ } sub Gtk2::set_size_wildcarded { my ($_source, $_setting) = @_ } sub Gtk2::set_sizing { my ($_tree_column, $_type) = @_ } sub Gtk2::set_snap_edge { my ($_handle_box, $_edge) = @_ } 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) = @_ }'); } |