From 309667a5a1412b4329548296b368c9cb98647a71 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/Curses/UI.pm | 18 ++++++++++++------
 fake_packages/gen.pl       |  2 ++
 2 files changed, 14 insertions(+), 6 deletions(-)

(limited to 'fake_packages')

diff --git a/fake_packages/Curses/UI.pm b/fake_packages/Curses/UI.pm
index 730bb53..72cc81f 100644
--- a/fake_packages/Curses/UI.pm
+++ b/fake_packages/Curses/UI.pm
@@ -1,7 +1,8 @@
 
 package Curses::UI;
 our @ISA = qw();
-sub add() { my ($_o_args) = @_ }
+sub add { my ($_o_args) = @_ }
+sub add() {}
 sub add_callback() {}
 sub calendardialog() {}
 sub clear_on_exit(;$) {}
@@ -40,7 +41,8 @@ sub nostatus() {}
 sub object_at_xy($$;$) {}
 sub overlapping(;$) {}
 sub process_args() {}
-sub progress() { my ($_o_args) = @_ }
+sub progress { my ($_o_args) = @_ }
+sub progress() {}
 sub question() {}
 sub reset_curses() {}
 sub savefilebrowser() {}
@@ -50,7 +52,8 @@ sub set_read_timeout() {}
 sub set_timer($$;) {}
 sub setprogress($;$) {}
 sub status($;) {}
-sub tempdialog() { my ($_o_args) = @_ }
+sub tempdialog { my ($_o_args) = @_ }
+sub tempdialog() {}
 sub usemodule($;) {}
 sub userdata() {}
 
@@ -166,7 +169,8 @@ sub getobj($;) {}
 sub hasa($;) {}
 sub layout() {}
 sub layout_contained_objects() {}
-sub new() { my ($_o_userargs) = @_ }
+sub new { my ($_o_userargs) = @_ }
+sub new() {}
 sub set_draworder(@) { my ($_o_order) = @_ }
 sub set_focusorder(@) { my ($_o_order) = @_ }
 sub window_is_ontop($;) {}
@@ -308,7 +312,8 @@ sub cursor_left() {}
 sub cursor_right() {}
 sub escape_key() {}
 sub mouse_button1() {}
-sub new() { my ($_o_userargs) = @_ }
+sub new { my ($_o_userargs) = @_ }
+sub new() {}
 sub option_select() {}
 
 package Curses::UI::Menubar;
@@ -380,7 +385,8 @@ our @ISA = qw();
 sub entry_loose_focus() {}
 sub event_keypress($;) {}
 sub get() {}
-sub new() { my ($_o_userargs) = @_ }
+sub new { my ($_o_userargs) = @_ }
+sub new() {}
 sub pos(;$) {}
 sub prompt(;$) {}
 sub text(;$) {}
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