diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:27:03 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:27:03 +0000 |
| commit | 5eb87138fdfa80f897563a42a09b151fec7f66b0 (patch) | |
| tree | 6f51ddc3ed89cb5a7e1ff25151d2624bcb20225c | |
| parent | d2b19e35fe1d1cf25d6a8f8ab288bdbc2c06e222 (diff) | |
| download | perl-MDK-Common-5eb87138fdfa80f897563a42a09b151fec7f66b0.tar perl-MDK-Common-5eb87138fdfa80f897563a42a09b151fec7f66b0.tar.gz perl-MDK-Common-5eb87138fdfa80f897563a42a09b151fec7f66b0.tar.bz2 perl-MDK-Common-5eb87138fdfa80f897563a42a09b151fec7f66b0.tar.xz perl-MDK-Common-5eb87138fdfa80f897563a42a09b151fec7f66b0.zip | |
add support for overriden functions
| -rw-r--r-- | perl_checker_fake_packages/Gtk2.pm | 2 | ||||
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 7 |
2 files changed, 6 insertions, 3 deletions
diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm index 441a0c4..7806479 100644 --- a/perl_checker_fake_packages/Gtk2.pm +++ b/perl_checker_fake_packages/Gtk2.pm @@ -1766,7 +1766,7 @@ sub Gtk2::create_from_data {} sub Gtk2::create_from_xpm { my ($_class, $_window, $_xparent_color, $_filename) = @_ } sub Gtk2::create_from_xpm_d { my ($_class, $_window, $_xparent_color, $_data) = @_ } sub Gtk2::create_item { my ($_factory, $_entry, $_callback_data, $_callback_type) = @_ } -sub Gtk2::create_items { my ($_factory, $_entries, $_callback_data) = @_ } +sub Gtk2::create_items { my ($_factory, $_entries, $o_callback_data) = @_ } sub Gtk2::create_items_ac { my ($_factory, $_entries, $_callback_data, $_callback_type) = @_ } sub Gtk2::create_mark { my ($_buffer, $_mark_name, $_where, $_left_gravity) = @_ } sub Gtk2::create_pango_context { my ($_widget) = @_ } diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl index 0fe2e88..d7ae24f 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -18,9 +18,12 @@ sub gtk2 { [ 'signal_disconnect', ' { my ($_target, $_closure) = @_ }' ], [ 'signal_is_connected', ' { my ($_target, $_closure) = @_ }' ], [ 'signal_stop_emission_by_name', ' { my ($_target, $_detailed_signal) = @_ }' ], + [ 'create_items', ' { my ($_factory, $_entries, $o_callback_data) = @_ }' ], ); + my @added_subroutines; my $add = sub { - push @subroutines, [ $_[0], $_[1] ]; + member($_[0], map { $_->[0] } @subroutines) and return; + push @added_subroutines, [ $_[0], $_[1] ]; }; my $pm_file = sub { @@ -157,7 +160,7 @@ sub gtk2 { our \@ISA = qw(); "; - @subroutines = sort { $a->[0] cmp $b->[0] } @subroutines; + @subroutines = sort { $a->[0] cmp $b->[0] } @subroutines, @added_subroutines; my @ok; foreach my $fun (uniq(map { $_->[0] } @subroutines)) { my @multiples = grep { $_->[0] eq $fun } @subroutines; |