diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-19 19:00:22 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-19 19:00:22 +0000 |
| commit | 267514893ae4c1fbb0eecc792c72ab72e93a3066 (patch) | |
| tree | 467407f98430c5ce73706c016d85dbe3d89532b6 | |
| parent | 99c3bc62e461609593d1b7219d8146dd49228818 (diff) | |
| download | perl_checker-267514893ae4c1fbb0eecc792c72ab72e93a3066.tar perl_checker-267514893ae4c1fbb0eecc792c72ab72e93a3066.tar.gz perl_checker-267514893ae4c1fbb0eecc792c72ab72e93a3066.tar.bz2 perl_checker-267514893ae4c1fbb0eecc792c72ab72e93a3066.tar.xz perl_checker-267514893ae4c1fbb0eecc792c72ab72e93a3066.zip | |
(is_blacklisted) split it out of get_paras()
| -rwxr-xr-x | fake_packages/gen.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index 029d130..46c9253 100755 --- a/fake_packages/gen.pl +++ b/fake_packages/gen.pl @@ -5,6 +5,12 @@ use MDK::Common; my ($current_package, $current_prefix, $current_name); +sub is_blacklisted { + my ($name, $para) = @_; + member($name, qw(print use)); +} + + my %l; sub get_paras { my ($name, $para) = @_; @@ -13,7 +19,7 @@ sub get_paras { $name =~ s/\(\)//; $current_name = $name; # perl_checker don't like those: - return if member($name, qw(print use)); + return if is_blacklisted($name); $l{$current_package}{$name} = [ map { if (/\Q.../) { # C code: |