X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=src%2Fperl.c;h=0c5ee0c336c19bb19d60e70f588fd6da47f8c14c;hb=d69c181126dcf75dcc1c93954463ba32ca340b39;hp=14a7a8dfd9d5c350fb9fe1f27b09961fdb1668ba;hpb=090e054043f6d93b374dee20d766c4f906acd43a;p=collectd.git

diff --git a/src/perl.c b/src/perl.c
index 14a7a8df..0c5ee0c3 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -2509,7 +2509,10 @@ static int perl_config (oconfig_item_t *ci)
 		int current_status = 0;
 
 		if (NULL != perl_threads)
-			aTHX = PERL_GET_CONTEXT;
+		{
+			if ((aTHX = PERL_GET_CONTEXT) == NULL)
+				return -1;
+		}
 
 		if (0 == strcasecmp (c->key, "LoadPlugin"))
 			current_status = perl_config_loadplugin (aTHX_ c);