diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-08 18:19:09 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-08 18:19:09 +0000 |
commit | 4c8899698120c3d25558d0cdb2ba0903da044da0 (patch) | |
tree | 764a17f65a977b8882c60e0b0b7068429e70c6f0 | |
parent | b2171aaa3bcd8939e6b3e076248640f8595e70b1 (diff) | |
download | perl_checker-4c8899698120c3d25558d0cdb2ba0903da044da0.tar perl_checker-4c8899698120c3d25558d0cdb2ba0903da044da0.tar.gz perl_checker-4c8899698120c3d25558d0cdb2ba0903da044da0.tar.bz2 perl_checker-4c8899698120c3d25558d0cdb2ba0903da044da0.tar.xz perl_checker-4c8899698120c3d25558d0cdb2ba0903da044da0.zip |
blacklist some function names that perl_checker dislike (use, ...)
-rw-r--r-- | NEWS | 2 | ||||
-rwxr-xr-x | fake_packages/gen.pl | 2 |
2 files changed, 4 insertions, 0 deletions
@@ -1,3 +1,5 @@ +- blacklist some function names that perl_checker dislike (use, ...) + Version 1.2.14 - 01 February 2012, by Thierry Vignaud - update 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'; |