From 5a55ecdbaf4b35e8d57fea374cd45548bca67148 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 19 Mar 2012 19:00:26 +0000
Subject: (parse_pm) blacklist earlier some functions

(else Glib fake packages provides isa() and perl_checker declares bogus
"too many parameters" warnings on eg any.pm)
---
 fake_packages/gen.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl
index e0f4c3b..1524646 100755
--- a/fake_packages/gen.pl
+++ b/fake_packages/gen.pl
@@ -128,7 +128,7 @@ sub parse_pm {
             $name = $1;
             # handle functions without spacing before opening "{" (eg: "sub set_color_fg{")
             $name =~ s/{$//;
-            $l{$current_package}{$name} = [] if !defined($l{$current_package}{$name});
+            $l{$current_package}{$name} = [] if !defined($l{$current_package}{$name}) && !is_blacklisted($name);
 	    $state = 'waiting_for_param';
 	} elsif ($state eq 'waiting_for_param' && /=\s*\@_/) {
             get_paras($name, $_);
-- 
cgit v1.2.1