perl plugin: Use `Perl_newSVpv' rather than `newSVpv'

[collectd.git] / src / entropy.c

diff --git a/src/entropy.c b/src/entropy.c
index 7e0a817..fd48c74 100644 (file)
--- a/src/entropy.c
+++ b/src/entropy.c
@@ -52,7 +52,7 @@ static void entropy_submit (double entropy)
        vl.values = values;
        vl.values_len = 1;
        vl.time = time (NULL);
-       strcpy (vl.host, hostname);
+       strcpy (vl.host, hostname_g);
        strcpy (vl.plugin, "entropy");
        strcpy (vl.plugin_instance, "");
        strcpy (vl.type_instance, "");
@@ -88,10 +88,13 @@ static int entropy_read (void)
 }
 #endif /* ENTROPY_HAVE_READ */
 
-void module_register (void)
+void module_register (modreg_e load)
 {
-       plugin_register_data_set (&ds);
+       if (load & MR_DATASETS)
+               plugin_register_data_set (&ds);
+
 #if ENTROPY_HAVE_READ
-       plugin_register_read ("entropy", entropy_read);
+       if (load & MR_READ)
+               plugin_register_read ("entropy", entropy_read);
 #endif
-}
+} /* void module_register */