[sr-dev] git:master:9490ec06: app_perl: set G_EVAL flag when executing perl_destroy_func

Module: kamailio Branch: master Commit: 9490ec06d3cf0cfd0b0cf2d0a5ef701ccdabcaba URL: https://github.com/kamailio/kamailio/commit/9490ec06d3cf0cfd0b0cf2d0a5ef701… Author: Daniel-Constantin Mierla &lt;miconda(a)gmail.com&gt; Committer: Daniel-Constantin Mierla &lt;miconda(a)gmail.com&gt; Date: 2019-09-26T23:09:37+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 --- Modified: src/modules/app_perl/app_perl_mod.c --- Diff: https://github.com/kamailio/kamailio/commit/9490ec06d3cf0cfd0b0cf2d0a5ef701… Patch: https://github.com/kamailio/kamailio/commit/9490ec06d3cf0cfd0b0cf2d0a5ef701… --- diff --git a/src/modules/app_perl/app_perl_mod.c b/src/modules/app_perl/app_perl_mod.c index 3852fa118c..2fb711706c 100644 --- a/src/modules/app_perl/app_perl_mod.c +++ b/src/modules/app_perl/app_perl_mod.c @@ -401,7 +401,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) {