From: Mitch Capper <mitch.capper@gmail.com>
Date: Thu, 23 Mar 2017 16:40:30 +0000 (-0700)
Subject: FS-10071 mod_perl safety fix for clone call
X-Git-Tag: v1.6.18~37
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1a1af6cf26509ee67ff8c7d67bafc6f4aae948fa;p=thirdparty%2Ffreeswitch.git

FS-10071 mod_perl safety fix for clone call
Adding NULL at the end of our fake ARGV string for completeness
---

diff --git a/src/mod/languages/mod_perl/mod_perl.c b/src/mod/languages/mod_perl/mod_perl.c
index b04ec7471f..aa66fed54b 100644
--- a/src/mod/languages/mod_perl/mod_perl.c
+++ b/src/mod/languages/mod_perl/mod_perl.c
@@ -45,7 +45,7 @@
 #include <EXTERN.h>
 #include <perl.h>
 #include <switch.h>
-static char *embedding[] = { "", "-e", "0" };
+static char *embedding[] = { "", "-e", "0", NULL };
 EXTERN_C void xs_init(pTHX);
 
 SWITCH_MODULE_LOAD_FUNCTION(mod_perl_load);