From 412c4fc2515b0a06cb92d9d15257f77da8fa49de Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 28 Apr 2003 15:29:08 +0000
Subject: ignore multiply defined functions

---
 perl_checker_fake_packages/gen.pl | 5 ++---
 1 file 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;
-- 
cgit v1.2.1