From 52c0cff66fef047547dd456d0ea0da0d6d209cbc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 24 Mar 2012 23:43:38 +0000
Subject: (is_blacklisted) kill unused arg

---
 fake_packages/gen.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'fake_packages')

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));
 }
 
-- 
cgit v1.2.1