summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-08 18:19:09 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-08 18:19:09 +0000
commit4c8899698120c3d25558d0cdb2ba0903da044da0 (patch)
tree764a17f65a977b8882c60e0b0b7068429e70c6f0
parentb2171aaa3bcd8939e6b3e076248640f8595e70b1 (diff)
downloadperl_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--NEWS2
-rwxr-xr-xfake_packages/gen.pl2
2 files changed, 4 insertions, 0 deletions
diff --git a/NEWS b/NEWS
index 02a5447..5b1be87 100644
--- a/NEWS
+++ b/NEWS
@@ -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';