From 4061718e4647fceac563c23f719b2056ffa1acb7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 8 Mar 2012 18:19:18 +0000
Subject: (get_paras) remove empty prototypes from functions (it's possible we
 see it using shift later):

thus fixing perl_checker warnings on Curses::UI
---
 fake_packages/gen.pl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'fake_packages/gen.pl')

diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl
index b65cd5d..3b49922 100755
--- a/fake_packages/gen.pl
+++ b/fake_packages/gen.pl
@@ -9,6 +9,8 @@ my %l;
 sub get_paras {
     my ($name, $para) = @_;
     $name =~ s/\Q$current_prefix//;
+    # remove empty prototypes from functions (it's possible we see it using shift later):
+    $name =~ s/\(\)//;
     $current_name = $name;
     # perl_checker don't like those:
     return if member($name, qw(print use));
-- 
cgit v1.2.1