diff options
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | fake_packages/Curses/UI.pm | 18 | ||||
| -rw-r--r-- | fake_packages/Gtk2/WebKit.pm | 2 |
3 files changed, 10 insertions, 11 deletions
@@ -1,4 +1,5 @@ - blacklist some function names that perl_checker dislike (use, ...) +- fix 2 fake packages Version 1.2.14 - 01 February 2012, by Thierry Vignaud diff --git a/fake_packages/Curses/UI.pm b/fake_packages/Curses/UI.pm index 2a62470..730bb53 100644 --- a/fake_packages/Curses/UI.pm +++ b/fake_packages/Curses/UI.pm @@ -33,7 +33,7 @@ sub layout_new() {} sub leave_curses() {} sub loadfilebrowser() {} sub mainloop { my ($_o_self) = @_ } -sub mainloopExit{() {} +sub mainloopExit() {} sub new { my ($_class, $_o_userargs) = @_ } sub noprogress() {} sub nostatus() {} @@ -498,14 +498,14 @@ sub process_padding($;) {} sub run_event($;) {} sub schedule_draw(;$) {} sub set_binding($@) { my ($_o_keys) = @_ } -sub set_color_bbg{() {} -sub set_color_bfg{() {} -sub set_color_bg{() {} -sub set_color_fg{() {} -sub set_color_sbg{() {} -sub set_color_sfg{() {} -sub set_color_tbg{() {} -sub set_color_tfg{() {} +sub set_color_bbg() {} +sub set_color_bfg() {} +sub set_color_bg() {} +sub set_color_fg() {} +sub set_color_sbg() {} +sub set_color_sfg() {} +sub set_color_tbg() {} +sub set_color_tfg() {} sub set_event($;$) {} sub set_mouse_binding($@) { my ($_o_mouse_events) = @_ } sub set_routine($$;) {} diff --git a/fake_packages/Gtk2/WebKit.pm b/fake_packages/Gtk2/WebKit.pm index 94219e7..845dbe1 100644 --- a/fake_packages/Gtk2/WebKit.pm +++ b/fake_packages/Gtk2/WebKit.pm @@ -118,7 +118,6 @@ sub load_request { my ($_frame, $_request) = @_ } sub load_string { my ($_frame, $_content, $_mime_type, $_encoding, $_base_uri) = @_ } sub load_uri { my ($_frame, $_uri) = @_ } sub new { my ($_class, $_view) = @_ } -sub print { my ($_frame) = @_ } sub print_full { my ($_frame, $_operation, $_action) = @_ } sub reload { my ($_frame) = @_ } sub stop_loading { my ($_frame) = @_ } @@ -155,7 +154,6 @@ package Gtk2::WebKit::WebPolicyDecision; our @ISA = qw(); sub download { my ($_decision) = @_ } sub ignore { my ($_decision) = @_ } -sub use { my ($_decision) = @_ } package Gtk2::WebKit::WebResource; our @ISA = qw(); |