[sr-dev] git:master:e53db293: app_perl: if warn_mode is 2, set -W for perl_parse()

[Daniel-Constantin Mierla]

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

Author: Daniel-Constantin Mierla <miconda at gmail.com>
Committer: Daniel-Constantin Mierla <miconda at gmail.com>
Date: 2022-07-13T18:24:50+02:00

app_perl: if warn_mode is 2, set -W for perl_parse()

---

Modified: src/modules/app_perl/app_perl_mod.c

---

Diff:  https://github.com/kamailio/kamailio/commit/e53db29378b452c79654b220353fa794081597f7.diff
Patch: https://github.com/kamailio/kamailio/commit/e53db29378b452c79654b220353fa794081597f7.patch

---

diff --git a/src/modules/app_perl/app_perl_mod.c b/src/modules/app_perl/app_perl_mod.c
index 67120d49e4..1c55c14c28 100644
--- a/src/modules/app_perl/app_perl_mod.c
+++ b/src/modules/app_perl/app_perl_mod.c
@@ -212,6 +212,8 @@ int parser_init(void) {
 
 	if(_ap_warn_mode==1) {
 		argv[argc] = "-w"; argc++;
+	} else if(_ap_warn_mode==2) {
+		argv[argc] = "-W"; argc++;
 	}
 
 	 /* Possible Include path extension by modparam */