X-Git-Url: https://git.octo.it/?p=collectd.git;a=blobdiff_plain;f=src%2Fperl.c;h=0a166a1ba184754782e6fd57de370e3eb57247ca;hp=1ce09f4df19c963849175595096fd6a4d6fb6af4;hb=0a63e4493d92f7d739a1849bc65d4e971b047004;hpb=ea3a86f0ff50f12650aae7eea033984a8ae0eba5

diff --git a/src/perl.c b/src/perl.c
index 1ce09f4d..0a166a1b 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -2515,7 +2515,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);