diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-19 19:00:26 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-19 19:00:26 +0000 |
| commit | ef5e00ccb96ba585bc5c447f1d5f07cf01fbaf9d (patch) | |
| tree | 05e5fdad935454c3c100553b4558d33ccd3c9000 | |
| parent | 88c8deff5e66aac6871427eb9ba29fd40fb5710f (diff) | |
| download | perl_checker-ef5e00ccb96ba585bc5c447f1d5f07cf01fbaf9d.tar perl_checker-ef5e00ccb96ba585bc5c447f1d5f07cf01fbaf9d.tar.gz perl_checker-ef5e00ccb96ba585bc5c447f1d5f07cf01fbaf9d.tar.bz2 perl_checker-ef5e00ccb96ba585bc5c447f1d5f07cf01fbaf9d.tar.xz perl_checker-ef5e00ccb96ba585bc5c447f1d5f07cf01fbaf9d.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)
| -rwxr-xr-x | fake_packages/gen.pl | 2 |
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, $_); |