[sr-dev] git:master:b1233557: app_perl: log the perl function name when not found

Module: kamailio Branch: master Commit: b12335579437d12a5de12aa415477a832d6224cd URL: https://github.com/kamailio/kamailio/commit/b12335579437d12a5de12aa415477a8… Author: Daniel-Constantin Mierla &lt;miconda(a)gmail.com&gt; Committer: Daniel-Constantin Mierla &lt;miconda(a)gmail.com&gt; Date: 2022-07-08T10:19:03+02:00 app_perl: log the perl function name when not found --- Modified: src/modules/app_perl/perlfunc.c --- Diff: https://github.com/kamailio/kamailio/commit/b12335579437d12a5de12aa415477a8… Patch: https://github.com/kamailio/kamailio/commit/b12335579437d12a5de12aa415477a8… --- diff --git a/src/modules/app_perl/perlfunc.c b/src/modules/app_perl/perlfunc.c index 122ece95a9..1f67628169 100644 --- a/src/modules/app_perl/perlfunc.c +++ b/src/modules/app_perl/perlfunc.c @@ -100,7 +100,7 @@ int perl_exec2(struct sip_msg* _msg, char* fnc, char* mystr) { dSP; if (!perl_checkfnc(fnc)) { - LM_ERR("unknown perl function called.\n"); + LM_ERR("unknown perl function called [%s]\n", ZSW(fnc)); reason.s = "Internal error"; reason.len = sizeof("Internal error")-1; if (slb.freply(_msg, 500, &reason) == -1) @@ -109,7 +109,7 @@ int perl_exec2(struct sip_msg* _msg, char* fnc, char* mystr) { } return -1; } - + switch ((_msg->first_line).type) { case SIP_REQUEST: if (parse_sip_msg_uri(_msg) < 0) {