From 6d3183eaa0cc3962d9f56166781126e80beb4488 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 13 Jan 2004 13:39:18 +0000 Subject: add exceptions for some std perl keywords used in glib/gtk2 binding --- perl_checker_fake_packages/gen.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker_fake_packages') 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 { -- cgit v1.2.1