[sr-dev] git:master:a466d0b7: app_perl: more debug messages to catch per execution errors

Module: kamailio Branch: master Commit: a466d0b73a66b18419555eca437136f1bcaebff9 URL: https://github.com/kamailio/kamailio/commit/a466d0b73a66b18419555eca437136f… Author: Daniel-Constantin Mierla <miconda(a)gmail.com> Committer: Daniel-Constantin Mierla <miconda(a)gmail.com> Date: 2022-07-08T13:37:33+02:00 app_perl: more debug messages to catch per execution errors --- Modified: src/modules/app_perl/perlfunc.c --- Diff: https://github.com/kamailio/kamailio/commit/a466d0b73a66b18419555eca437136f… Patch: https://github.com/kamailio/kamailio/commit/a466d0b73a66b18419555eca437136f… --- diff --git a/src/modules/app_perl/perlfunc.c b/src/modules/app_perl/perlfunc.c index ddb442220d..cf53895fd2 100644 --- a/src/modules/app_perl/perlfunc.c +++ b/src/modules/app_perl/perlfunc.c @@ -149,7 +149,7 @@ int perl_exec2(struct sip_msg* _msg, char* fnc, char* mystr) { call_pv(fnc, G_EVAL|G_SCALAR); /* call the function */ if(SvTRUE(ERRSV)) { - LM_WARN("perl error: %s\n", SvPV_nolen(ERRSV)); + LM_WARN("perl error for [%s]: %s\n", ZSW(fnc), SvPV_nolen(ERRSV)); } SPAGAIN; /* refresh stack pointer */ @@ -160,5 +160,6 @@ int perl_exec2(struct sip_msg* _msg, char* fnc, char* mystr) { FREETMPS; /* free that return value */ LEAVE; /* ...and the XPUSHed "mortal" args.*/ + LM_DBG("executed [%s] with return code: %d\n", ZSW(fnc), retval); return retval; }