summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl_checker_fake_packages/gen.pl5
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;