perl plugin: Check "return value" of PERL_GET_CONTEXT.

CID: 37985

diff --git a/src/perl.c b/src/perl.c
index 67cb842b0b06f0c42332f4ee999e5fd45a91aac1..d42afc2001f85311706d634dc96ec904f2c6959d 100644 (file)
--- 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);