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 | b22d75e7882a036cb85c3e040065984187276600 (patch) | |
| tree | 5d64dc71482af32e41637b3f80ce9346e7c0e2c3 | |
| parent | c67ee392d950d0f1e227e14fe19f0068c0b40e7f (diff) | |
| download | perl_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-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 { |