app_perl: log the perl function name when not found

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