Browse code

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

Daniel-Constantin Mierla authored on 13/07/2022 16:24:50
Showing 1 changed files
... ...
@@ -212,6 +212,8 @@ int parser_init(void) {
212 212
 
213 213
 	if(_ap_warn_mode==1) {
214 214
 		argv[argc] = "-w"; argc++;
215
+	} else if(_ap_warn_mode==2) {
216
+		argv[argc] = "-W"; argc++;
215 217
 	}
216 218
 
217 219
 	 /* Possible Include path extension by modparam */