add exceptions for some std perl keywords used in glib/gtk2 binding

1 files changed, 1 insertions, 1 deletions

diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl
index ccad0c0..6ca4c21 100755
--- a/perl_checker_fake_packages/gen.pl
+++ b/perl_checker_fake_packages/gen.pl
@@ -98,7 +98,7 @@ foreach my $pkg (sort keys %l) {
     print "our \@ISA = qw();\n";
     foreach my $name (sort keys %{$l{$pkg}}) {
 	my $para = $l{$pkg}{$name};
-	$name = $pkg . '::' . $name if $name =~ /^(length|x|y|eq|foreach|format)$/;
+	$name = $pkg . '::' . $name if $name =~ /^(eq|foreach|format|ge|length|sub|x|xor|y)$/;
 	if (@$para) {
 	    print "sub $name { my (", join(", ", @$para), ") = \@_ }\n";
 	} else {