From 4c8899698120c3d25558d0cdb2ba0903da044da0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 8 Mar 2012 18:19:09 +0000
Subject: blacklist some function names that perl_checker dislike (use, ...)

---
 fake_packages/gen.pl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'fake_packages')

diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl
index aaf4a4d..b2a9311 100755
--- a/fake_packages/gen.pl
+++ b/fake_packages/gen.pl
@@ -10,6 +10,8 @@ sub get_paras {
     my ($name, $para) = @_;
     $name =~ s/\Q$current_prefix//;
     $current_name = $name;
+    # perl_checker don't like those:
+    return if member($name, qw(print use));
     $l{$current_package}{$name} = [ map {
 	if (/\Q.../) {
 	    '@_more_paras';
-- 
cgit v1.2.1