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

Module: kamailio Branch: 5.1 Commit: 0d8cf56eb4fb98dd5a14a20bec2876bb09b4fbed URL: https://github.com/kamailio/kamailio/commit/0d8cf56eb4fb98dd5a14a20bec2876b… Author: Daniel-Constantin Mierla &lt;miconda(a)gmail.com&gt; Committer: Daniel-Constantin Mierla &lt;miconda(a)gmail.com&gt; 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/0d8cf56eb4fb98dd5a14a20bec2876b… Patch: https://github.com/kamailio/kamailio/commit/0d8cf56eb4fb98dd5a14a20bec2876b… --- 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) {