summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fake_packages/Curses/UI.pm18
-rwxr-xr-xfake_packages/gen.pl2
2 files changed, 14 insertions, 6 deletions
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));