summaryrefslogtreecommitdiffstats
path: root/fake_packages
diff options
context:
space:
mode:
Diffstat (limited to 'fake_packages')
-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: