- if (PL_unsafe || PL_taint_warn) {
- if(ckWARN_d(WARN_TAINT))
- Perl_warner(aTHX_ packWARN(WARN_TAINT), f, s, ug);
+
+ /* XXX because taint_proper adds extra format args, we can't
+ * get the caller to check properly; o we just silence the warning
+ * and hope the callers aren't naughty */
+ GCC_DIAG_IGNORE(-Wformat-nonliteral);
+ if (PL_unsafe || TAINT_WARN_get) {
+ Perl_ck_warner_d(aTHX_ packWARN(WARN_TAINT), f, s, ug);