From 84584d71949470e7df8219b6f8d9bf458be5d217 Mon Sep 17 00:00:00 2001
From: Mitch Capper <mitch.capper@gmail.com>
Date: Wed, 22 Mar 2017 12:23:36 -0700
Subject: [PATCH] Resolves FS-10071. Fixed newer (perl 5.22 and up) versions of
 perl from crashing, -e means evaluate the following string and it does not
 like emptystr.

---
 src/mod/languages/mod_perl/mod_perl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mod/languages/mod_perl/mod_perl.c b/src/mod/languages/mod_perl/mod_perl.c
index dfd47dfeb8..b04ec7471f 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", "" };
+static char *embedding[] = { "", "-e", "0" };
 EXTERN_C void xs_init(pTHX);
 
 SWITCH_MODULE_LOAD_FUNCTION(mod_perl_load);