[sr-dev] git:5.1:0d8cf56e: app_perl: set G_EVAL flag when executing perl_destroy_func

[Daniel-Constantin Mierla]

Module: kamailio
Branch: 5.1
Commit: 0d8cf56eb4fb98dd5a14a20bec2876bb09b4fbed
URL: https://github.com/kamailio/kamailio/commit/0d8cf56eb4fb98dd5a14a20bec2876bb09b4fbed

Author: Daniel-Constantin Mierla <miconda at gmail.com>
Committer: Daniel-Constantin Mierla <miconda at gmail.com>
Date: 2019-10-09T08:55:10+02:00

app_perl: set G_EVAL flag when executing perl_destroy_func

- trap use of die in the perl libs to avoid having an exit when
reset_cycles is used

(cherry picked from commit 9490ec06d3cf0cfd0b0cf2d0a5ef701ccdabcaba)
(cherry picked from commit 7e7621a93013174bf42ff0dd782a46d238c0943a)

---

Modified: src/modules/app_perl/app_perl_mod.c

---

Diff:  https://github.com/kamailio/kamailio/commit/0d8cf56eb4fb98dd5a14a20bec2876bb09b4fbed.diff
Patch: https://github.com/kamailio/kamailio/commit/0d8cf56eb4fb98dd5a14a20bec2876bb09b4fbed.patch

---

diff --git a/src/modules/app_perl/app_perl_mod.c b/src/modules/app_perl/app_perl_mod.c
index d7e1e5c8ed..329a691192 100644
--- a/src/modules/app_perl/app_perl_mod.c
+++ b/src/modules/app_perl/app_perl_mod.c
@@ -403,7 +403,7 @@ int app_perl_reset_interpreter(void)
 		return 0;
 
 	if(perl_destroy_func)
-		call_argv(perl_destroy_func, G_DISCARD | G_NOARGS, args);
+		call_argv(perl_destroy_func, G_DISCARD | G_NOARGS | G_EVAL, args);
 
 	gettimeofday(&t1, NULL);
 	if (perl_reload()<0) {