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: