Added some missing functions in Perl plugin API

1 files changed, 12 insertions, 4 deletions

diff --git a/src/plugins/demo/demo.c b/src/plugins/demo/demo.c
index fb99f86b1..9df0bc912 100644
--- a/src/plugins/demo/demo.c
+++ b/src/plugins/demo/demo.c
@@ -107,10 +107,17 @@ demo_infobar_command_cb (void *data, struct t_gui_buffer *buffer, int argc,
  * demo_buffer_input_data_cb: callback for input data on buffer
  */
 
-void
-demo_buffer_input_data_cb (struct t_gui_buffer *buffer, char *data)
+int
+demo_buffer_input_data_cb (void *data, struct t_gui_buffer *buffer,
+                           char *input_data)
 {
-    weechat_printf (buffer, "buffer input_data_cb: data = '%s'", data);
+    /* make C compiler happy */
+    (void) data;
+    
+    weechat_printf (buffer,
+                    "buffer input_data_cb: input_data = '%s'", input_data);
+    
+    return WEECHAT_RC_OK;
 }
 
 /*
@@ -131,7 +138,8 @@ demo_buffer_command_cb (void *data, struct t_gui_buffer *buffer, int argc,
     if (argc > 2)
     {
         new_buffer = weechat_buffer_new (argv[1], argv[2],
-                                         demo_buffer_input_data_cb);
+                                         &demo_buffer_input_data_cb,
+                                         NULL);
         if (new_buffer)
             weechat_buffer_set (new_buffer, "display", "1");
         weechat_hook_signal_send ("logger_backlog",