summaryrefslogtreecommitdiffstats
path: root/perl_checker_fake_packages
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-04-28 15:29:08 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-04-28 15:29:08 +0000
commit412c4fc2515b0a06cb92d9d15257f77da8fa49de (patch)
tree374b057320de38175bdfbd534c265cb050e1de7a /perl_checker_fake_packages
parent7a5d3022d6cd66d96f8407f86f0114927db0708f (diff)
downloadperl_checker-412c4fc2515b0a06cb92d9d15257f77da8fa49de.tar
perl_checker-412c4fc2515b0a06cb92d9d15257f77da8fa49de.tar.gz
perl_checker-412c4fc2515b0a06cb92d9d15257f77da8fa49de.tar.bz2
perl_checker-412c4fc2515b0a06cb92d9d15257f77da8fa49de.tar.xz
perl_checker-412c4fc2515b0a06cb92d9d15257f77da8fa49de.zip
ignore multiply defined functions
Diffstat (limited to 'perl_checker_fake_packages')
-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;