app_perl: print return code if perl_parse() failes

modules/app_perl/app_perl_mod.c

@@ -209,6 +209,7 @@ PerlInterpreter *parser_init(void) {
 	int modpathset_start = 0;
 	int modpathset_end = 0;
 	int i;
+	int pr;
 
 	new_perl = perl_alloc();
 
@@ -249,8 +250,9 @@ PerlInterpreter *parser_init(void) {
 	argv[argc] = filename; /* The script itself */
 	argc++;
 
-	if (perl_parse(new_perl, xs_init, argc, argv, NULL)) {
-		LM_ERR("failed to load perl file \"%s\".\n", argv[argc-1]);
+	pr=perl_parse(new_perl, xs_init, argc, argv, NULL);
+	if (pr) {
+		LM_ERR("failed to load perl file \"%s\" with code %d.\n", argv[argc-1], pr);
 		if (modpathset_start) {
 			for (i = modpathset_start; i <= modpathset_end; i++) {
 				pkg_free(argv[i]);