diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-13 13:39:18 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-13 13:39:18 +0000 |
| commit | 6d3183eaa0cc3962d9f56166781126e80beb4488 (patch) | |
| tree | 7d500460e2934555a43c351bdbdb32661b5d7cb0 /perl_checker_fake_packages/gen.pl | |
| parent | 8eb4cc08f573fbc8414ef3cd9496c845802e0901 (diff) | |
| download | perl_checker-6d3183eaa0cc3962d9f56166781126e80beb4488.tar perl_checker-6d3183eaa0cc3962d9f56166781126e80beb4488.tar.gz perl_checker-6d3183eaa0cc3962d9f56166781126e80beb4488.tar.bz2 perl_checker-6d3183eaa0cc3962d9f56166781126e80beb4488.tar.xz perl_checker-6d3183eaa0cc3962d9f56166781126e80beb4488.zip | |
add exceptions for some std perl keywords used in glib/gtk2 binding
Diffstat (limited to 'perl_checker_fake_packages/gen.pl')
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 2 |
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 { |