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 | 15b2a0b1bb9e90fc4dbbe10d97ae0be53c241137 (patch) | |
| tree | 0d64d0cd544b047c8ee540367af0637e9014aa09 | |
| parent | e7890036ded94384514af395d51bc8f0d067fc97 (diff) | |
| download | perl_checker-15b2a0b1bb9e90fc4dbbe10d97ae0be53c241137.tar perl_checker-15b2a0b1bb9e90fc4dbbe10d97ae0be53c241137.tar.gz perl_checker-15b2a0b1bb9e90fc4dbbe10d97ae0be53c241137.tar.bz2 perl_checker-15b2a0b1bb9e90fc4dbbe10d97ae0be53c241137.tar.xz perl_checker-15b2a0b1bb9e90fc4dbbe10d97ae0be53c241137.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; |