diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-13 13:39:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-13 13:39:53 +0000 |
| commit | 4eb762f8af4f23b0ff940f2e5760d5d58756d33f (patch) | |
| tree | 9ef7201f4f91037b0028995df837eed655332ce2 | |
| parent | 6d3183eaa0cc3962d9f56166781126e80beb4488 (diff) | |
| download | perl_checker-4eb762f8af4f23b0ff940f2e5760d5d58756d33f.tar perl_checker-4eb762f8af4f23b0ff940f2e5760d5d58756d33f.tar.gz perl_checker-4eb762f8af4f23b0ff940f2e5760d5d58756d33f.tar.bz2 perl_checker-4eb762f8af4f23b0ff940f2e5760d5d58756d33f.tar.xz perl_checker-4eb762f8af4f23b0ff940f2e5760d5d58756d33f.zip | |
filter perl keyword
| -rw-r--r-- | perl_checker_fake_packages/Glib.pm | 6 | ||||
| -rw-r--r-- | perl_checker_fake_packages/Gtk2.pm | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/perl_checker_fake_packages/Glib.pm b/perl_checker_fake_packages/Glib.pm index 232d98f..9de0854 100644 --- a/perl_checker_fake_packages/Glib.pm +++ b/perl_checker_fake_packages/Glib.pm @@ -22,11 +22,11 @@ sub all { my ($_a, $_b, $_swap) = @_ } sub as_arrayref { my ($_a, $_b, $_swap) = @_ } sub bool { my ($_a, $_b, $_swap) = @_ } sub Glib::Flags::eq { my ($_a, $_b, $_swap) = @_ } -sub ge { my ($_a, $_b, $_swap) = @_ } +sub Glib::Flags::ge { my ($_a, $_b, $_swap) = @_ } sub intersect { my ($_a, $_b, $_swap) = @_ } -sub sub { my ($_a, $_b, $_swap) = @_ } +sub Glib::Flags::sub { my ($_a, $_b, $_swap) = @_ } sub union { my ($_a, $_b, $_swap) = @_ } -sub xor { my ($_a, $_b, $_swap) = @_ } +sub Glib::Flags::xor { my ($_a, $_b, $_swap) = @_ } package Glib::IO; our @ISA = qw(); diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm index 8c12536..f22cc70 100644 --- a/perl_checker_fake_packages/Gtk2.pm +++ b/perl_checker_fake_packages/Gtk2.pm @@ -937,7 +937,7 @@ sub spans_intersect_foreach { my ($_region, $_spans_ref, $_sorted, $_func, $_o_d sub subtract { my ($_source1, $_source2) = @_ } sub union { my ($_source1, $_source2) = @_ } sub union_with_rect { my ($_region, $_rect) = @_ } -sub xor { my ($_source1, $_source2) = @_ } +sub Gtk2::Gdk::Region::xor { my ($_source1, $_source2) = @_ } package Gtk2::Gdk::Rgb; our @ISA = qw(); |