powerdns plugin: Declare variables on first use.

[collectd.git] / src / perl.c

diff --git a/src/perl.c b/src/perl.c
index ea53fbf..f58e02a 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
@@ -2618,6 +2618,12 @@ static int perl_config_plugin(pTHX_ oconfig_item_t *ci) {
   char *plugin;
   HV *config;
 
+  if (NULL == perl_threads) {
+    log_err("A `Plugin' block was encountered but no plugin was loaded yet. "
+            "Put the appropriate `LoadPlugin' option in front of it.");
+    return -1;
+  }
+
   dSP;
 
   if ((1 != ci->values_num) || (OCONFIG_TYPE_STRING != ci->values[0].type)) {