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

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 */