diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-28 15:29:08 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-28 15:29:08 +0000 |
| commit | 412c4fc2515b0a06cb92d9d15257f77da8fa49de (patch) | |
| tree | 374b057320de38175bdfbd534c265cb050e1de7a /perl_checker_fake_packages | |
| parent | 7a5d3022d6cd66d96f8407f86f0114927db0708f (diff) | |
| download | perl_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-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; |