(get_paras) remove empty prototypes from functions (it's possible we see it using shift later):

thus fixing perl_checker warnings on Curses::UI

1 files changed, 2 insertions, 0 deletions

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));