diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-17 17:54:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-17 17:54:33 +0000 |
| commit | 4dd246fa76f1a8103195a2d44385cd525860e514 (patch) | |
| tree | 5d64dc71482af32e41637b3f80ce9346e7c0e2c3 | |
| parent | e8ec1f9192ae15e8919d57f8c9fd3ba30047f800 (diff) | |
| download | perl_checker-4dd246fa76f1a8103195a2d44385cd525860e514.tar perl_checker-4dd246fa76f1a8103195a2d44385cd525860e514.tar.gz perl_checker-4dd246fa76f1a8103195a2d44385cd525860e514.tar.bz2 perl_checker-4dd246fa76f1a8103195a2d44385cd525860e514.tar.xz perl_checker-4dd246fa76f1a8103195a2d44385cd525860e514.zip | |
fix generating Gtk2 where "ne" can be a method
| -rwxr-xr-x | fake_packages/gen.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index 6ca4c21..b2669b0 100755 --- a/fake_packages/gen.pl +++ b/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 =~ /^(eq|foreach|format|ge|length|sub|x|xor|y)$/; + $name = $pkg . '::' . $name if $name =~ /^(ne|eq|foreach|format|ge|length|sub|x|xor|y)$/; if (@$para) { print "sub $name { my (", join(", ", @$para), ") = \@_ }\n"; } else { |