summaryrefslogtreecommitdiffstats
path: root/fake_packages
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-08 18:19:18 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-08 18:19:18 +0000
commit4061718e4647fceac563c23f719b2056ffa1acb7 (patch)
treeab28b39ff238f0eb00c817ba3f1e2e72311e303d /fake_packages
parent627ff2ed3a37292285ad7b71df46d35cea60e316 (diff)
downloadperl_checker-4061718e4647fceac563c23f719b2056ffa1acb7.tar
perl_checker-4061718e4647fceac563c23f719b2056ffa1acb7.tar.gz
perl_checker-4061718e4647fceac563c23f719b2056ffa1acb7.tar.bz2
perl_checker-4061718e4647fceac563c23f719b2056ffa1acb7.tar.xz
perl_checker-4061718e4647fceac563c23f719b2056ffa1acb7.zip
(get_paras) remove empty prototypes from functions (it's possible we see it using shift later):
thus fixing perl_checker warnings on Curses::UI
Diffstat (limited to 'fake_packages')
-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));