summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-17 17:54:33 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-17 17:54:33 +0000
commitb22d75e7882a036cb85c3e040065984187276600 (patch)
tree5d64dc71482af32e41637b3f80ce9346e7c0e2c3
parentc67ee392d950d0f1e227e14fe19f0068c0b40e7f (diff)
downloadperl_checker-b22d75e7882a036cb85c3e040065984187276600.tar
perl_checker-b22d75e7882a036cb85c3e040065984187276600.tar.gz
perl_checker-b22d75e7882a036cb85c3e040065984187276600.tar.bz2
perl_checker-b22d75e7882a036cb85c3e040065984187276600.tar.xz
perl_checker-b22d75e7882a036cb85c3e040065984187276600.zip
fix generating Gtk2 where "ne" can be a method
-rwxr-xr-xfake_packages/gen.pl2
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 {