summaryrefslogtreecommitdiffstats
path: root/fake_packages/gen.pl
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-19 19:00:26 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-19 19:00:26 +0000
commit5a55ecdbaf4b35e8d57fea374cd45548bca67148 (patch)
tree05e5fdad935454c3c100553b4558d33ccd3c9000 /fake_packages/gen.pl
parent7a96905d3da8de6ba1555acfb649c10d7a4bbd29 (diff)
downloadperl_checker-5a55ecdbaf4b35e8d57fea374cd45548bca67148.tar
perl_checker-5a55ecdbaf4b35e8d57fea374cd45548bca67148.tar.gz
perl_checker-5a55ecdbaf4b35e8d57fea374cd45548bca67148.tar.bz2
perl_checker-5a55ecdbaf4b35e8d57fea374cd45548bca67148.tar.xz
perl_checker-5a55ecdbaf4b35e8d57fea374cd45548bca67148.zip
(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)
Diffstat (limited to 'fake_packages/gen.pl')
-rwxr-xr-xfake_packages/gen.pl2
1 files changed, 1 insertions, 1 deletions
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, $_);