diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-24 23:43:38 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-24 23:43:38 +0000 |
| commit | 52c0cff66fef047547dd456d0ea0da0d6d209cbc (patch) | |
| tree | 0155cbc520a03c59c4d9fbe84b646fc298832ff8 /fake_packages/gen.pl | |
| parent | abfe20a98eb3bd11e50cb04f856beefcde9479df (diff) | |
| download | perl_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-x | fake_packages/gen.pl | 2 |
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)); } |