From 4eb762f8af4f23b0ff940f2e5760d5d58756d33f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 13 Jan 2004 13:39:53 +0000 Subject: filter perl keyword --- perl_checker_fake_packages/Glib.pm | 6 +++--- perl_checker_fake_packages/Gtk2.pm | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'perl_checker_fake_packages') 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(); -- cgit v1.2.1