fix 2 fake packages

3 files changed, 10 insertions, 11 deletions

diff --git a/NEWS b/NEWS
index 5b1be87..6069e3e 100644
--- a/NEWS
+++ b/NEWS
@@ -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();