app_perl: more debug messages to catch per execution errors

kamailio · Jul 8, 2022 · a466d0b · a466d0b
1 parent 8c91045
commit a466d0b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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;
 }