Module: kamailio Branch: 5.1 Commit: 0d8cf56eb4fb98dd5a14a20bec2876bb09b4fbed URL: https://github.com/kamailio/kamailio/commit/0d8cf56eb4fb98dd5a14a20bec2876bb...
Author: Daniel-Constantin Mierla miconda@gmail.com Committer: Daniel-Constantin Mierla miconda@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/0d8cf56eb4fb98dd5a14a20bec2876bb... Patch: https://github.com/kamailio/kamailio/commit/0d8cf56eb4fb98dd5a14a20bec2876bb...
---
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) {
-
Daniel-Constantin Mierla