summaryrefslogtreecommitdiffstats
path: root/fake_packages/gen.pl
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-24 23:43:38 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-24 23:43:38 +0000
commit52c0cff66fef047547dd456d0ea0da0d6d209cbc (patch)
tree0155cbc520a03c59c4d9fbe84b646fc298832ff8 /fake_packages/gen.pl
parentabfe20a98eb3bd11e50cb04f856beefcde9479df (diff)
downloadperl_checker-52c0cff66fef047547dd456d0ea0da0d6d209cbc.tar
perl_checker-52c0cff66fef047547dd456d0ea0da0d6d209cbc.tar.gz
perl_checker-52c0cff66fef047547dd456d0ea0da0d6d209cbc.tar.bz2
perl_checker-52c0cff66fef047547dd456d0ea0da0d6d209cbc.tar.xz
perl_checker-52c0cff66fef047547dd456d0ea0da0d6d209cbc.zip
(is_blacklisted) kill unused arg
Diffstat (limited to 'fake_packages/gen.pl')
-rwxr-xr-xfake_packages/gen.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl
index 527636b..8390534 100755
--- a/fake_packages/gen.pl
+++ b/fake_packages/gen.pl
@@ -6,7 +6,7 @@ use MDK::Common;
my ($current_package, $current_prefix, $current_name);
sub is_blacklisted {
- my ($name, $para) = @_;
+ my ($name) = @_;
member($name, qw(can isa print use));
}