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 | e6e8648fcfd850448a403c1f53d962f232793801 (patch) | |
| tree | 0155cbc520a03c59c4d9fbe84b646fc298832ff8 | |
| parent | 6f98772ea63484d81b290bdb5e26ec43abdbe878 (diff) | |
| download | perl_checker-e6e8648fcfd850448a403c1f53d962f232793801.tar perl_checker-e6e8648fcfd850448a403c1f53d962f232793801.tar.gz perl_checker-e6e8648fcfd850448a403c1f53d962f232793801.tar.bz2 perl_checker-e6e8648fcfd850448a403c1f53d962f232793801.tar.xz perl_checker-e6e8648fcfd850448a403c1f53d962f232793801.zip | |
(is_blacklisted) kill unused arg
| -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)); } |