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 | b2882e32d6f453625343ac0b0edb5be06c0dfd05 (patch) | |
| tree | aee33f2b67750b4fa54e377944ec3b7077506b77 /perl_checker_fake_packages | |
| parent | a6e2b7879fb41ce2f38d7930a82ec8917fda5009 (diff) | |
| download | perl-MDK-Common-b2882e32d6f453625343ac0b0edb5be06c0dfd05.tar perl-MDK-Common-b2882e32d6f453625343ac0b0edb5be06c0dfd05.tar.gz perl-MDK-Common-b2882e32d6f453625343ac0b0edb5be06c0dfd05.tar.bz2 perl-MDK-Common-b2882e32d6f453625343ac0b0edb5be06c0dfd05.tar.xz perl-MDK-Common-b2882e32d6f453625343ac0b0edb5be06c0dfd05.zip | |
add exceptions for some std perl keywords used in glib/gtk2 binding
Diffstat (limited to 'perl_checker_fake_packages')
| -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 { |