X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=src%2Fperl.c;h=e6b7c460d9b59a3e711361bb058a9473e6d98477;hb=3f9f3d0f8454337c3095f6c7bc2358a50df47876;hp=b600ca1d5e4a740ad85153dae85ebfe981b4ad5d;hpb=ddf1f52c7fb0eab19a0f35e0747dfa21edcae109;p=collectd.git

diff --git a/src/perl.c b/src/perl.c
index b600ca1d..e6b7c460 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -1933,7 +1933,8 @@ static int perl_write (const data_set_t *ds, const value_list_t *vl,
 	return pplugin_call_all (aTHX_ PLUGIN_WRITE, ds, vl);
 } /* static int perl_write (const data_set_t *, const value_list_t *) */
 
-static void perl_log (int level, const char *msg)
+static void perl_log (int level, const char *msg,
+		user_data_t __attribute__((unused)) *user_data)
 {
 	dTHX;
 
@@ -2220,7 +2221,7 @@ static int init_pi (int argc, char **argv)
 
 	perl_run (aTHX);
 
-	plugin_register_log ("perl", perl_log);
+	plugin_register_log ("perl", perl_log, /* user_data = */ NULL);
 	plugin_register_notification ("perl", perl_notify);
 	plugin_register_init ("perl", perl_init);