perl plugin: Respect the modreg flags in module_register ().

TODO: Pass on MR_DATASETS to perl plugins.

Signed-off-by: Sebastian Harl <sh@tokkee.org>

diff --git a/src/perl.c b/src/perl.c
index d8f294f06b1bf61472d267ebef6fb8bc77e3b487..f42708d7dde81cff2d8d811f66d0a3e2eda8e781 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
@@ -1064,7 +1064,7 @@ static void xs_init (pTHX)
 /*
  * Create the perl interpreter and register it with collectd.
  */
-void module_register (void)
+void module_register (modreg_e load)
 {
        char *embed_argv[] = { "", "-e", "bootstrap Collectd \""VERSION"\"", NULL };
        int  embed_argc    = 3;
@@ -1097,7 +1097,10 @@ void module_register (void)
        plugin_register_log ("perl", perl_log);
        plugin_register_config ("perl", perl_config, config_keys, config_keys_num);
        plugin_register_init ("perl", perl_init);
-       plugin_register_read ("perl", perl_read);
+
+       if (load & MR_READ)
+               plugin_register_read ("perl", perl_read);
+
        plugin_register_write ("perl", perl_write);
        plugin_register_shutdown ("perl", perl_shutdown);
        return;