diff options
Diffstat (limited to 'fake_packages')
-rwxr-xr-x | fake_packages/gen.pl | 2 |
1 files changed, 2 insertions, 0 deletions
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'; |