diff options
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl index 4d18665..eec88b6 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -128,8 +128,8 @@ our \@ISA = qw(); foreach (@multiples) { my $a = split /,/, $_->[1]; $args == -1 and $args = $a; - #- skip multiply defined functions that have different numbers of arguments - $args != $a and goto skip_it; + #- ignore multiply defined functions that have different numbers of arguments + $args != $a and $multiples[0][1] = ' {}'; } my $i; $multiples[0][1] =~ s/\$_(\w+)/'$_DUMMY'.$i++/ge; @@ -137,7 +137,6 @@ our \@ISA = qw(); } else { push @ok, @multiples; } - skip_it: } print "sub Gtk2::$_->[0]$_->[1]\n" foreach @ok; |