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 bc15f58dc3bd77a6f380bd74cb98f7a1fb4e8485..24efaefb983304dff63ae9def722245eea441cbb 100644 (file)
--- 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);