From 267514893ae4c1fbb0eecc792c72ab72e93a3066 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 19 Mar 2012 19:00:22 +0000
Subject: (is_blacklisted) split it out of get_paras()

---
 fake_packages/gen.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'fake_packages/gen.pl')

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:
-- 
cgit v1.2.1