summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-19 19:00:22 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-19 19:00:22 +0000
commit267514893ae4c1fbb0eecc792c72ab72e93a3066 (patch)
tree467407f98430c5ce73706c016d85dbe3d89532b6
parent99c3bc62e461609593d1b7219d8146dd49228818 (diff)
downloadperl_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-xfake_packages/gen.pl8
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: