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

[Daniel-Constantin Mierla]

Module: kamailio
Branch: master
Commit: b12335579437d12a5de12aa415477a832d6224cd
URL: https://github.com/kamailio/kamailio/commit/b12335579437d12a5de12aa415477a832d6224cd

Author: Daniel-Constantin Mierla <miconda at gmail.com>
Committer: Daniel-Constantin Mierla <miconda at gmail.com>
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/b12335579437d12a5de12aa415477a832d6224cd.diff
Patch: https://github.com/kamailio/kamailio/commit/b12335579437d12a5de12aa415477a832d6224cd.patch

---

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) {